diff options
author | Tony Cook <tony@develop-help.com> | 2011-09-06 23:45:02 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2011-09-08 15:36:20 +1000 |
commit | 5618ebab65f88f3f73bc9ebb4f235c6bcc8b027c (patch) | |
tree | d245b07bc692275ca430615f86c9d055149d8246 /dist | |
parent | 83e49ee07c6c8e192e11c461132321abbac615ed (diff) | |
download | perl-5618ebab65f88f3f73bc9ebb4f235c6bcc8b027c.tar.gz |
avoid " in Carp.t test programs, due to Win32 shell issues
Win32 doesn't have a real execv(), so the " end up in the
command-line, interfering with the normal quoted command-line
processing.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Carp/t/Carp.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/Carp/t/Carp.t b/dist/Carp/t/Carp.t index edb4020192..96f0f91625 100644 --- a/dist/Carp/t/Carp.t +++ b/dist/Carp/t/Carp.t @@ -396,7 +396,7 @@ like( runperl( prog => q< use utf8; use strict; use Carp; - BEGIN { $SIG{__DIE__} = sub { Carp::croak "aaaaa$_[0]" } } + BEGIN { $SIG{__DIE__} = sub { Carp::croak qq(aaaaa$_[0]) } } $c >, stderr=>1, @@ -414,8 +414,8 @@ SKIP: prog => q< use Carp; $SIG{__WARN__} = sub{}; - carp ("A duck, but which duck?"); - print "ok" unless exists $::{"B::"}; + carp (qq(A duck, but which duck?)); + print q(ok) unless exists $::{q(B::)}; >, ), 'ok', |