diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 16:14:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 16:14:44 +0000 |
| commit | 786b702fd554cca5ea2fbd5fa8b43a3f3d95bf11 (patch) | |
| tree | d5ce1ff2971f2304764080bf62975a567022292e /lib/File | |
| parent | 3dbbd0f5d38d873da0cc4a01718eb88e4dc6ae89 (diff) | |
| download | perl-786b702fd554cca5ea2fbd5fa8b43a3f3d95bf11.tar.gz | |
remove rel2abs prototypes (from Barrie Slaymaker)
p4raw-id: //depot/perl@6303
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/Mac.pm | 2 | ||||
| -rw-r--r-- | lib/File/Spec/Unix.pm | 2 | ||||
| -rw-r--r-- | lib/File/Spec/VMS.pm | 2 | ||||
| -rw-r--r-- | lib/File/Spec/Win32.pm | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm index 4d365cbb09..9ef55ec84a 100644 --- a/lib/File/Spec/Mac.pm +++ b/lib/File/Spec/Mac.pm @@ -362,7 +362,7 @@ L</file_name_is_absolute> for details. =cut -sub rel2abs($;$;) { +sub rel2abs { my ($self,$path,$base ) = @_; if ( ! $self->file_name_is_absolute( $path ) ) { diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index 36036f3aae..a81c533235 100644 --- a/lib/File/Spec/Unix.pm +++ b/lib/File/Spec/Unix.pm @@ -423,7 +423,7 @@ Based on code written by Shigio Yamaguchi. =cut -sub rel2abs($;$;) { +sub rel2abs { my ($self,$path,$base ) = @_; # Clean up $path diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index cc06ca636d..c19695d7e5 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -451,7 +451,7 @@ Use VMS syntax when converting filespecs. =cut -sub rel2abs($;$;) { +sub rel2abs { my $self = shift ; return vmspath(File::Spec::Unix::rel2abs( $self, @_ )) if ( join( '', @_ ) =~ m{/} ) ; diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index 8510d1ff36..f5d6cda2bc 100644 --- a/lib/File/Spec/Win32.pm +++ b/lib/File/Spec/Win32.pm @@ -312,7 +312,7 @@ sub abs2rel { } -sub rel2abs($;$;) { +sub rel2abs { my ($self,$path,$base ) = @_; if ( ! $self->file_name_is_absolute( $path ) ) { |