Re: [perl #18872] File::Basename example misleading
Richard Soderberg [Sat, 15 Feb 2003 01:27:21 +0000 (20:27 -0500)]
Message-Id: <89FAC8B9-40AE-11D7-9B07-000393801F84@crystalflame.net>

p4raw-id: //depot/perl@18810

lib/File/Basename.pm

index ed59e9a..3b0685f 100644 (file)
@@ -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