From 592b6146abaa73ac77b995c1e9bbb97ab53c6da9 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@casella.verplant.org>
Date: Sun, 21 Sep 2008 19:50:04 +0200
Subject: [PATCH] Re: [perl #59134] Typo in File::stat man pag Message-ID:
 <20080921154935.4916.qmail@lists.develooper.com>

p4raw-id: //depot/perl@34386
---
 lib/File/stat.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 132cbee..22862d7 100644
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -76,7 +76,7 @@ File::stat - by-name interface to Perl's built-in stat() functions
 
  use File::stat qw(:FIELDS);
  stat($file) or die "No $file: $!";
- if ( ($st_mode & 0111) && $st_nlink > 1) ) {
+ if ( ($st_mode & 0111) && ($st_nlink > 1) ) {
      print "$file is executable with lotsa links\n";
  } 
 
-- 
2.7.4