Change 23247 by rgs@no-spam on 2004/09/01 15:11:45
Update to File::Spec 0.90
Affected files ...
... //depot/perl/lib/File/Spec.pm#36 edit
... //depot/perl/lib/File/Spec/VMS.pm#39 edit
Differences ...
==== //depot/perl/lib/File/Spec.pm#36 (text) ====
Index: perl/lib/File/Spec.pm
--- perl/lib/File/Spec.pm#35~23168~ Wed Jul 28 05:13:36 2004
+++ perl/lib/File/Spec.pm Wed Sep 1 08:11:45 2004
@@no-spam -3,7 +3,7 @@no-spam
use strict;
use vars qw(@no-spam $VERSION);
-$VERSION = '0.88';
+$VERSION = '0.90';
$VERSION = eval $VERSION;
my %module = (MacOS => 'Mac',
==== //depot/perl/lib/File/Spec/VMS.pm#39 (text) ====
Index: perl/lib/File/Spec/VMS.pm
--- perl/lib/File/Spec/VMS.pm#38~23241~ Sat Aug 28 01:05:19 2004
+++ perl/lib/File/Spec/VMS.pm Wed Sep 1 08:11:45 2004
@@no-spam -477,7 +477,11 @@no-spam
my $self = shift ;
my ($path,$base ) = @no-spam
return undef unless defined $path;
- $path = vmsify($path) if $path =~ m/\//;
+ if ($path =~ m/\//) {
+ $path = ( -d $path || $path =~ m/\/\z/ # educated guessing about
+ ? vmspath($path) # whether it's a directory
+ : vmsify($path) );
+ }
$base = vmspath($base) if defined $base && $base =~ m/\//;
# Clean up and split up $path
if ( ! $self->file_name_is_absolute( $path ) ) {
End of Patch.