diff options
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/proto.t | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 7f566e226b..1f5ed30fcf 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -585,20 +585,25 @@ print "ok ", $i++, "\n"; print "ok ", $i++, "\n"; eval q/sub multi1 (\[%@]) { 1 } multi1 $myvar;/; - print "not " unless $@ =~ /Type of arg 1 to main::multi1 must be one of/; + print "not " + unless $@ =~ /Type of arg 1 to main::multi1 must be one of \[%\@\] /; print "ok ", $i++, "\n"; eval q/sub multi2 (\[$*&]) { 1 } multi2 @myarray;/; - print "not " unless $@ =~ /Type of arg 1 to main::multi2 must be one of/; + print "not " + unless $@ =~ /Type of arg 1 to main::multi2 must be one of \[\$\*&\] /; print "ok ", $i++, "\n"; eval q/sub multi3 (\[$@]) { 1 } multi3 %myhash;/; - print "not " unless $@ =~ /Type of arg 1 to main::multi3 must be one of/; + print "not " + unless $@ =~ /Type of arg 1 to main::multi3 must be one of \[\$\@\] /; print "ok ", $i++, "\n"; eval q/sub multi4 ($\[%]) { 1 } multi4 1, &mysub;/; - print "not " unless $@ =~ /Type of arg 2 to main::multi4 must be one of/; + print "not " + unless $@ =~ /Type of arg 2 to main::multi4 must be one of \[%\] /; print "ok ", $i++, "\n"; eval q/sub multi5 (\[$@]$) { 1 } multi5 *myglob;/; - print "not " unless $@ =~ /Type of arg 1 to main::multi5 must be one of/ - && $@ =~ /Not enough arguments/; + print "not " + unless $@ =~ /Type of arg 1 to main::multi5 must be one of \[\$\@\] / + && $@ =~ /Not enough arguments/; print "ok ", $i++, "\n"; } |