Message-Id: <
89FAC8B9-40AE-11D7-9B07-000393801F84@crystalflame.net>
p4raw-id: //depot/perl@18810
($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