This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Doc patch by Thomas O Smailus :
authorAdriano Ferreira <a.r.ferreira@gmail.com>
Tue, 14 Nov 2006 10:24:38 +0000 (08:24 -0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 14 Nov 2006 12:36:15 +0000 (12:36 +0000)
Subject: Fwd: [perl #40866] Error on doc page? (File::Basename)
From: "Adriano Rodrigues" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0611140424t26b01d0aq667ca95e77f25e6@mail.gmail.com>

p4raw-id: //depot/perl@29272

lib/File/Basename.pm

index 7df8c89..2c5e8a9 100644 (file)
@@ -54,7 +54,7 @@ our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
-$VERSION = "2.75";
+$VERSION = "2.76";
 
 fileparse_set_fstype($^O);
 
@@ -89,7 +89,7 @@ C<qr//>) matched against the end of the $filename.  The matching
 portion is removed and becomes the $suffix.
 
      # On Unix returns ("baz", "/foo/bar", ".txt")
-     fileparse("/foo/bar/baz", qr/\.[^.]*/);
+     fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);
 
 If type is non-Unix (see C<fileparse_set_fstype()>) then the pattern
 matching for suffix removal is performed case-insensitively, since