diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 17:30:31 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 17:30:31 +0000 |
| commit | 06bf62c76633176572262d33d1b4072ea6d227a8 (patch) | |
| tree | 232c71c6f4b5a6c96c0bd8b59c078c83e60dff79 /t | |
| parent | cc391245e1d1990aad64067bd4c25ba76be67238 (diff) | |
| download | perl-06bf62c76633176572262d33d1b4072ea6d227a8.tar.gz | |
allow embedded null characters in diagnostics
p4raw-id: //depot/perl@3274
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/die.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/die.t b/t/op/die.t index d473ed6b7f..cf4f8b0555 100755 --- a/t/op/die.t +++ b/t/op/die.t @@ -4,7 +4,7 @@ print "1..10\n"; $SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ; -$err = "ok 1\n"; +$err = "#[\000]\nok 1\n"; eval { die $err; }; |