projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3bb6d3e)
Re: [perl #18872] File::Basename example misleading
authorRichard Soderberg <p5-authors@crystalflame.net>
Sat, 15 Feb 2003 01:27:21 +0000 (20:27 -0500)
committerhv <hv@crypt.org>
Sun, 2 Mar 2003 21:59:10 +0000 (21:59 +0000)
Message-Id: <89FAC8B9-40AE-11D7-9B07-000393801F84@crystalflame.net>

p4raw-id: //depot/perl@18810

lib/File/Basename.pm patch | blob | history

diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index ed59e9a..3b0685f 100644 (file)
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -19,7 +19,7 @@ dirname - extract just the directory from a path
 
     ($name,$path,$suffix) = fileparse("lib/File/Basename.pm",qr{\.pm});
     fileparse_set_fstype("VMS");
-    $basename = basename("lib/File/Basename.pm",qr{\.pm});
+    $basename = basename("lib/File/Basename.pm",".pm");
     $dirname = dirname("lib/File/Basename.pm");
 
 =head1 DESCRIPTION
Domain: System / Base;