diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2003-07-08 00:41:42 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-17 07:50:00 +0000 |
| commit | 72f15715c6c3759affc3e9b41e7833c9c3ccb901 (patch) | |
| tree | 22a01456f51c0d8826fa0029b94660dc8e6d381c /lib/File/Spec/Mac.pm | |
| parent | 4a094b8061e567109cdf00844f8e2bd6041f76f3 (diff) | |
| download | perl-72f15715c6c3759affc3e9b41e7833c9c3ccb901.tar.gz | |
The "reduce memory footprint and increase speed by not
unconditionally pulling in Cwd" part of
Subject: [PATCH] File::Spec on diet
Message-Id: <200307072235.03364@bloodgate.com>
was still valid.
p4raw-id: //depot/perl@20744
Diffstat (limited to 'lib/File/Spec/Mac.pm')
| -rw-r--r-- | lib/File/Spec/Mac.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm index 513e837f14..83bd7094b5 100644 --- a/lib/File/Spec/Mac.pm +++ b/lib/File/Spec/Mac.pm @@ -8,7 +8,6 @@ $VERSION = '1.4'; @ISA = qw(File::Spec::Unix); -use Cwd; my $macfiles; if ($^O eq 'MacOS') { $macfiles = eval { require Mac::Files }; @@ -657,7 +656,7 @@ sub abs2rel { # Figure out the effective $base and clean it up. if ( !defined( $base ) || $base eq '' ) { - $base = cwd(); + $base = $self->cwd(); } elsif ( ! $self->file_name_is_absolute( $base ) ) { $base = $self->rel2abs( $base ) ; @@ -725,7 +724,7 @@ sub rel2abs { if ( ! $self->file_name_is_absolute($path) ) { # Figure out the effective $base and clean it up. if ( !defined( $base ) || $base eq '' ) { - $base = cwd(); + $base = $self->cwd(); } elsif ( ! $self->file_name_is_absolute($base) ) { $base = $self->rel2abs($base) ; @@ -757,10 +756,10 @@ sub rel2abs { See the authors list in I<File::Spec>. Mac OS support by Paul Schinder <schinder@pobox.com> and Thomas Wegner <wegner_thomas@yahoo.com>. - =head1 SEE ALSO -L<File::Spec> +See L<File::Spec> and L<File::Spec::Unix>. This package overrides the +implementation of these methods, not the semantics. =cut |