diff options
| author | Tim Sweetman <tim@aldigital.co.uk> | 2001-06-13 15:25:17 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 17:13:26 +0000 |
| commit | 212caf55b8a7ec0d131ccbf5f587aaed741446df (patch) | |
| tree | 9c3289975c880aa7b35c52e5f59f58102ccb5d65 /lib/AutoLoader.pm | |
| parent | 97dcea33347a88fd451a9b2e4f27b9d77c268b94 (diff) | |
| download | perl-212caf55b8a7ec0d131ccbf5f587aaed741446df.tar.gz | |
Fix for [ID 20010124.001] POSIX::errno unreliable
Message-ID: <3B2769BD.68B4F4B3@aldigital.co.uk>
p4raw-id: //depot/perl@10756
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 564aeb1276..10d13ba10c 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -88,6 +88,7 @@ AUTOLOAD { } } my $save = $@; + local $!; # Do not munge the value. eval { local $SIG{__DIE__}; require $filename }; if ($@) { if (substr($sub,-9) eq '::DESTROY') { |