From: Moritz Lenz <moritz@casella.verplant.org>
Date: Sun, 21 Sep 2008 17:50:04 +0000 (+0200)
Subject: Re: [perl #59134] Typo in File::stat man pag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=592b6146abaa73ac77b995c1e9bbb97ab53c6da9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
  }