diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2003-02-14 20:27:21 -0500 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-03-02 21:59:10 +0000 |
| commit | 8003a3f39e0d3ffb6292cac71089be1d83d95a6a (patch) | |
| tree | f0195675551c187ec0e0ebf43e6e481e03266547 /lib/File | |
| parent | 3bb6d3e5122054efefe647ff1c834b844fec2fa2 (diff) | |
| download | perl-8003a3f39e0d3ffb6292cac71089be1d83d95a6a.tar.gz | |
Re: [perl #18872] File::Basename example misleading
Message-Id: <89FAC8B9-40AE-11D7-9B07-000393801F84@crystalflame.net>
p4raw-id: //depot/perl@18810
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Basename.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index ed59e9a7a0..3b0685f166 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 |