From d788ce0c1c59b3158270143659f7a4363da73056 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Mon, 16 Jun 2014 10:22:55 +0100
Subject: [PATCH] avoid precedence warning

With Perl 5.20, installing a package with stow gives a warning like
this:

  Possible precedence issue with control flow operator at
  /gar/packages/stow-2.2.0/lib/perl5/site_perl/5.20.0/Stow.pm line 1736.

http://lists.gnu.org/archive/html/bug-stow/2014-06/msg00000.html

Suggested-by: Adam Sampson <ats@offog.org>
---
 lib/Stow.pm.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
index 98ecf35..948c7a6 100755
--- a/lib/Stow.pm.in
+++ b/lib/Stow.pm.in
@@ -1734,8 +1734,8 @@ sub read_a_link {
     }
     elsif (-l $path) {
         debug(4, "  read_a_link($path): real link");
-        return readlink $path
-            or error("Could not read link: $path ($!)");
+        my $target = readlink $path or error("Could not read link: $path ($!)");
+        return $target;
     }
     internal_error("read_a_link() passed a non link path: $path\n");
 }