This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle the rare but legal angle bracket in unixify.
authorCraig A. Berry <craigberry@mac.com>
Thu, 18 Jun 2009 02:23:49 +0000 (21:23 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 18 Jun 2009 02:23:49 +0000 (21:23 -0500)
commit5ad5b34cb2af84d4f37219a5dee752fca0459151
tree55d7df3479f0c50ea746ffb15e3c96eced23f866
parent9441003632c1655e69cacf0e741f01d3190ca6d0
Handle the rare but legal angle bracket in unixify.

We have been getting:

$ perl -e "print VMS::Filespec::unixify('foo:<bar>');"
/foo/<bar/

but should be (and now are) getting:

$ perl -e "print VMS::Filespec::unixify('foo:<bar>');"
/foo/bar/
vms/ext/filespec.t
vms/vms.c