From: Richard Soderberg Date: Sat, 15 Feb 2003 01:27:21 +0000 (-0500) Subject: Re: [perl #18872] File::Basename example misleading X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8003a3f39e0d3ffb6292cac71089be1d83d95a6a;p=p5sagit%2Fp5-mst-13.2.git Re: [perl #18872] File::Basename example misleading Message-Id: <89FAC8B9-40AE-11D7-9B07-000393801F84@crystalflame.net> p4raw-id: //depot/perl@18810 --- diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index ed59e9a..3b0685f 100644 --- 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