diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-03-11 13:22:43 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-03-11 13:24:56 -0800 |
| commit | d066ad0f7923df77c196bc64360843fa02f2aef1 (patch) | |
| tree | 6073bf4680db9d6b3d0ad477d671f5495b870f24 /lib/File/Basename.pm | |
| parent | c65895fd5522f4f86bf15255ed3d9f701cde751d (diff) | |
| download | perl-d066ad0f7923df77c196bc64360843fa02f2aef1.tar.gz | |
[perl #85884] Erroneous description of File::Basename::fileparse
Literal backslashes need single quotes.
Diffstat (limited to 'lib/File/Basename.pm')
| -rw-r--r-- | lib/File/Basename.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 696b601659..f928e323d7 100644 --- 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.80"; +$VERSION = "2.81"; fileparse_set_fstype($^O); @@ -78,8 +78,8 @@ The remainder of the $path is the $filename. # On Unix returns ("baz", "/foo/bar/", "") fileparse("/foo/bar/baz"); - # On Windows returns ("baz", "C:\foo\bar\", "") - fileparse("C:\foo\bar\baz"); + # On Windows returns ("baz", 'C:\foo\bar\', "") + fileparse('C:\foo\bar\baz'); # On Unix returns ("", "/foo/bar/baz/", "") fileparse("/foo/bar/baz/"); |