In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5ad5b34cb2af84d4f37219a5dee752fca0459151?hp=9441003632c1655e69cacf0e741f01d3190ca6d0>
- Log ----------------------------------------------------------------- commit 5ad5b34cb2af84d4f37219a5dee752fca0459151 Author: Craig A. Berry <[email protected]> Date: Wed Jun 17 21:23:49 2009 -0500 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/ ----------------------------------------------------------------------- Summary of changes: vms/ext/filespec.t | 1 + vms/vms.c | 2 +- 2 files changed, 2 insertions(+), 1 deletions(-) diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 5dd27c9..b40cc81 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_ ^ diff --git a/vms/vms.c b/vms/vms.c index 0896934..9e94935 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -7346,7 +7346,7 @@ static char *int_tounixspec(const char *spec, char *rslt, int * utf8_fl) } if (*cp2 == ':') { *(cp1++) = '/'; - if (*(cp2+1) == '[') cp2++; + if (*(cp2+1) == '[' || *(cp2+1) == '<') cp2++; } else if (*cp2 == ']' || *cp2 == '>') { if (*(cp1-1) != '/') *(cp1++) = '/'; /* Don't double after ellipsis */ -- Perl5 Master Repository
