diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-01-14 16:01:03 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
| commit | 3f73d1e9321c4a88755d416e8a3bef027db02853 (patch) | |
| tree | 55f2005b2d747956cf5a6ff59a11f24a79fe5b51 | |
| parent | 798567d10e91675966b273e3beae91140ef7f782 (diff) | |
| download | perl-3f73d1e9321c4a88755d416e8a3bef027db02853.tar.gz | |
Avoid "uninitialized" warnings from POSIX::constant()
| -rw-r--r-- | ext/POSIX/POSIX.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 31ee642bd7..b095ffebe7 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -194,7 +194,7 @@ sub AUTOLOAD { local $! = 0; my $constname = $AUTOLOAD; $constname =~ s/.*:://; - my $val = constant($constname, $_[0]); + my $val = constant($constname, @_ ? $_[0] : 0); if ($! == 0) { *$AUTOLOAD = sub { $val }; } |