This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Disable strictures in POSIX AUTOLOAD
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 19 Dec 2006 10:23:29 +0000 (10:23 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 19 Dec 2006 10:23:29 +0000 (10:23 +0000)
p4raw-id: //depot/perl@29591

ext/POSIX/POSIX.pm

index 4f55519..6ccfa82 100644 (file)
@@ -37,6 +37,7 @@ my %NON_CONSTS = (map {($_,1)}
                      WIFEXITED WIFSIGNALED WIFSTOPPED WSTOPSIG WTERMSIG));
 
 sub AUTOLOAD {
+    no strict;
     if ($AUTOLOAD =~ /::(_?[a-z])/) {
        # require AutoLoader;
        $AutoLoader::AUTOLOAD = $AUTOLOAD;