diff options
Diffstat (limited to 't/pragma/warn/doio')
| -rw-r--r-- | t/pragma/warn/doio | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/pragma/warn/doio b/t/pragma/warn/doio index cd0d55831a..97f0804bfa 100644 --- a/t/pragma/warn/doio +++ b/t/pragma/warn/doio @@ -44,7 +44,8 @@ __END__ # doio.c use warning 'io' ; -open(F, "|$^X -e 1|") +open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|"); +close(F); EXPECT Can't do bidirectional pipe at - line 3. ######## @@ -111,4 +112,4 @@ use warning 'io' ; exec "lskdjfalksdjfdjfkls", "abc" ; EXPECT OPTION regex -Can't exec "lskdjfalksdjfdjfkls": .+ +Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+ |