Re: [perl #59134] Typo in File::stat man pag

Message-ID: <20080921154935.4916.qmail@lists.develooper.com>

p4raw-id: //depot/perl@34386

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 132cbee..22862d7 100644 (file)
--- 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";
  }