diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-15 06:57:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-15 06:57:51 +0000 |
| commit | faccc3df70d52167fc8db0cffe80b75c7537b839 (patch) | |
| tree | aad6689a8644b45fdf65a4e0f3143dde4dadad5b /lib | |
| parent | b5bd348c152c57fd6f24ee9faee1eb4d9968f632 (diff) | |
| parent | 817e423ab4dfba4afbe35ab9c8cdeb229ced90ff (diff) | |
| download | perl-faccc3df70d52167fc8db0cffe80b75c7537b839.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4164
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, |