Disable strictures in POSIX AUTOLOAD
Rafael Garcia-Suarez [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;