diff options
| author | Tony Cook <tony@develop-help.com> | 2013-08-26 15:07:44 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-08-26 15:32:47 +1000 |
| commit | 6ca940a96b9e45faae91a09cbb08c467933bbde9 (patch) | |
| tree | fef8e73648de04bf5b55d303c153e08b39b41fb7 /t/win32 | |
| parent | ed51a345f34e4dd7c7c58241f538c01d9f58b539 (diff) | |
| download | perl-6ca940a96b9e45faae91a09cbb08c467933bbde9.tar.gz | |
[perl #85104] work harder to save error numbers
Updates the errno save macros to save the platform error number where
needed for more than just VMS.
The OS/2 code is untested.
Diffstat (limited to 't/win32')
| -rw-r--r-- | t/win32/signal.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/win32/signal.t b/t/win32/signal.t index 71a6e7dc97..d24fd0b505 100644 --- a/t/win32/signal.t +++ b/t/win32/signal.t @@ -70,7 +70,7 @@ EOS } print "# signaled after $count loops\n"; print $! != 0 ? "not " : "", "ok 3 # \$! preserved\n"; - print $^E != 0 ? "not " : "", "ok 4 # TODO \$^E preserved\n" + print $^E != 0 ? "not " : "", "ok 4 # \$^E preserved\n" or print STDERR "# \$^E = ", 0+$^E, "\n"; exit; } |