diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-22 10:49:27 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-22 10:49:27 +0000 |
| commit | f2b27c0ebcd845b38b64790a1a1a6ac3dbdb148e (patch) | |
| tree | 5a49dcb2074c1b3c795e1a6652bdf0c7ccd781ea | |
| parent | 1a97d9951436306dd0b0c6c78146e7c8dfef7130 (diff) | |
| download | perl-f2b27c0ebcd845b38b64790a1a1a6ac3dbdb148e.tar.gz | |
Fix mis-parse of autoloaded usage code by declaring the sub
p4raw-id: //depot/perlio@13846
| -rw-r--r-- | ext/POSIX/POSIX.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 92a3182ad5..96555a5602 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -20,6 +20,8 @@ sub import { } sub croak { require Carp; goto &Carp::croak } +# declare usage to assist AutoLoad +sub usage; XSLoader::load 'POSIX', $VERSION; @@ -56,17 +58,17 @@ sub POSIX::SigAction::new { 1; __END__ -sub usage { +sub usage { my ($mess) = @_; croak "Usage: POSIX::$mess"; } -sub redef { +sub redef { my ($mess) = @_; croak "Use method $mess instead"; } -sub unimpl { +sub unimpl { my ($mess) = @_; $mess =~ s/xxx//; croak "Unimplemented: POSIX::$mess"; @@ -898,7 +900,7 @@ for (values %EXPORT_TAGS) { chmod mkdir stat umask times wait waitpid - gmtime localtime time + gmtime localtime time alarm chdir chown close fork getlogin getppid getpgrp link pipe read rmdir sleep unlink write utime |