Change 34386 by [EMAIL PROTECTED] on 2008/09/21 17:10:23
Subject: [PATCH] Re: [perl #59134] Typo in File::stat man pag
From: Moritz Lenz <[EMAIL PROTECTED]>
Date: Sun, 21 Sep 2008 17:50:04 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/stat.pm#16 edit
Differences ...
==== //depot/perl/lib/File/stat.pm#16 (text) ====
Index: perl/lib/File/stat.pm
--- perl/lib/File/stat.pm#15~17627~ 2002-07-18 11:20:57.000000000 -0700
+++ perl/lib/File/stat.pm 2008-09-21 10:10:23.000000000 -0700
@@ -76,7 +76,7 @@
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";
}
End of Patch.
