# https://projects.archlinux.org/svntogit/community.git/plain/trunk/01-fix-warning-message-perl5.20.patch?h=packages/stow
--- a/lib/Stow.pm.in	2012-02-18 20:33:34.000000000 +0000
+++ b/lib/Stow.pm.in	2014-06-08 22:46:03.420893651 +0100
@@ -1732,7 +1732,7 @@
     }
     elsif (-l $path) {
         debug(4, "  read_a_link($path): real link");
-        return readlink $path
+        (return readlink $path)
             or error("Could not read link: $path");
     }
     internal_error("read_a_link() passed a non link path: $path\n");