Typo in doc, found by Kornel Umann.

p4raw-id: //depot/perl@33402

diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index 2c5e8a9..98235bb 100644 (file)
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -88,7 +88,7 @@ If @suffixes are given each element is a pattern (either a string or a
 C<qr//>) matched against the end of the $filename.  The matching
 portion is removed and becomes the $suffix.
 
-     # On Unix returns ("baz", "/foo/bar", ".txt")
+     # On Unix returns ("baz", "/foo/bar/", ".txt")
      fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);
 
 If type is non-Unix (see C<fileparse_set_fstype()>) then the pattern