diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-23 00:18:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-23 00:18:27 +0000 |
| commit | 85a5de57f0760868dc6c90e36fe9b7ed954769c0 (patch) | |
| tree | af7e9464ff762909da3fe29962cddd8c73c629a6 /ext | |
| parent | efa2a43b6b2997da5efff097885108e28b4cd901 (diff) | |
| download | perl-85a5de57f0760868dc6c90e36fe9b7ed954769c0.tar.gz | |
De-duplicate the items in @EXPORT. (@EXPORT is built from all the tags,
and some constants are mentioned in multiple tags).
Should this logic be in Exporter::Heavy?
p4raw-id: //depot/perl@26459
Diffstat (limited to 'ext')
| -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 079861afa8..cd6188d062 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -2,7 +2,7 @@ package POSIX; our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %SIGRT) = (); -our $VERSION = "1.09"; +our $VERSION = "1.10"; use AutoLoader; @@ -958,8 +958,12 @@ sub load_imports { ); # Exporter::export_tags(); -for (values %EXPORT_TAGS) { - push @EXPORT, @$_; +{ + # De-duplicate the export list: + my %seen; + for (values %EXPORT_TAGS) { + push @EXPORT, grep {!$seen{$_}++} @$_; + } } @EXPORT_OK = qw( |