diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-19 10:50:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-19 10:50:13 +0000 |
| commit | 2ae48df0f018213e8336ab227bb84aba249da141 (patch) | |
| tree | 480530f48a8965cf9235708b1548b60b4069cfe6 /ext/POSIX/POSIX.pm | |
| parent | aece8dfbef01145d5fc8c74834ddfb4ea154b770 (diff) | |
| download | perl-2ae48df0f018213e8336ab227bb84aba249da141.tar.gz | |
Add a regression test to verify that POSIX::AUTOLOAD works,
and silence a potential warning from it.
p4raw-id: //depot/perl@29592
Diffstat (limited to 'ext/POSIX/POSIX.pm')
| -rw-r--r-- | ext/POSIX/POSIX.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 6ccfa8288b..3813e97386 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -38,6 +38,7 @@ my %NON_CONSTS = (map {($_,1)} sub AUTOLOAD { no strict; + no warnings 'uninitialized'; if ($AUTOLOAD =~ /::(_?[a-z])/) { # require AutoLoader; $AutoLoader::AUTOLOAD = $AUTOLOAD; |