diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-06-17 21:23:49 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-06-17 21:23:49 -0500 |
| commit | 5ad5b34cb2af84d4f37219a5dee752fca0459151 (patch) | |
| tree | 55d7df3479f0c50ea746ffb15e3c96eced23f866 /vms/ext | |
| parent | 9441003632c1655e69cacf0e741f01d3190ca6d0 (diff) | |
| download | perl-5ad5b34cb2af84d4f37219a5dee752fca0459151.tar.gz | |
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/
Diffstat (limited to 'vms/ext')
| -rw-r--r-- | vms/ext/filespec.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 5dd27c9b9d..b40cc816f3 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -83,6 +83,7 @@ __DATA__ # Basic VMS to Unix filespecs __some_:[__where_.__over_]__the_.__rainbow_ unixify /__some_/__where_/__over_/__the_.__rainbow_ ^ +__some_:<__where_.__over_>__the_.__rainbow_ unixify /__some_/__where_/__over_/__the_.__rainbow_ ^ [.__some_.__where_.__over_]__the_.__rainbow_ unixify __some_/__where_/__over_/__the_.__rainbow_ ^ [-.__some_.__where_.__over_]__the_.__rainbow_ unixify ../__some_/__where_/__over_/__the_.__rainbow_ ^ [.__some_.--.__where_.__over_]__the_.__rainbow_ unixify __some_/../../__where_/__over_/__the_.__rainbow_ ^ |