diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-27 12:45:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-27 12:45:45 +0000 |
| commit | 7ef8a0682774333b86c3ce2bc0270ce51f7fe433 (patch) | |
| tree | 02d76e46d2a4ced95dcd60aea1842838ad0005b7 /ext/POSIX | |
| parent | 252aa0820e6bce274b33bd342cfc65e18a59a165 (diff) | |
| parent | f29c64d6c131b79fab4ecd5f3a3b5afc6803e2a1 (diff) | |
| download | perl-7ef8a0682774333b86c3ce2bc0270ce51f7fe433.tar.gz | |
Integrate with Sarathy (5.005_58).
p4raw-id: //depot/cfgperl@3799
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 84298cb69a..d43b8ca282 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -1,6 +1,7 @@ package POSIX; -use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD); +# use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD); +(@ISA, %EXPORT_TAGS,@EXPORT_OK,$AUTOLOAD) = (); use Carp; use AutoLoader; @@ -11,7 +12,7 @@ require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); -$VERSION = "1.02" ; +$VERSION = $VERSION = "1.03" ; %EXPORT_TAGS = ( @@ -161,7 +162,10 @@ $VERSION = "1.02" ; ); -Exporter::export_tags(); +# Exporter::export_tags(); +for (values %EXPORT_TAGS) { + push @EXPORT, @$_; +} @EXPORT_OK = qw( closedir opendir readdir rewinddir |