diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-15 05:17:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-15 05:17:27 +0000 |
| commit | 817e423ab4dfba4afbe35ab9c8cdeb229ced90ff (patch) | |
| tree | 56a9834685118d6fe76ce8e6d6a8fff3ba6ab2f2 /lib | |
| parent | c88bfdbcc245c3005d3bcae6769e4b8c2e0d405c (diff) | |
| download | perl-817e423ab4dfba4afbe35ab9c8cdeb229ced90ff.tar.gz | |
add :ALL export tag (from Chris Nandor <pudge@pobox.com>)
p4raw-id: //depot/perl@4163
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/Functions.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm index ffc1199523..140738f443 100644 --- a/lib/File/Spec/Functions.pm +++ b/lib/File/Spec/Functions.pm @@ -3,7 +3,7 @@ package File::Spec::Functions; use File::Spec; use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK); +use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); require Exporter; @@ -31,6 +31,8 @@ require Exporter; rel2abs ); +%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] ); + foreach my $meth (@EXPORT, @EXPORT_OK) { my $sub = File::Spec->can($meth); no strict 'refs'; @@ -85,6 +87,8 @@ The following functions are exported only by request. abs2rel rel2abs +All the functions may be imported using the C<:ALL> tag. + =head1 SEE ALSO File::Spec, File::Spec::Unix, File::Spec::Mac, File::Spec::OS2, |