Doc patch by Thomas O Smailus :

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

diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index 7df8c89..2c5e8a9 100644 (file)
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -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