diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-09 06:23:10 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-09 08:34:27 -0700 |
| commit | 2f03b6be283ae09fca92d09e4e393d99ef1c38d4 (patch) | |
| tree | 3205cc1cbaec552ead37b9747850e677b4a0670f /dist/Cwd/lib/File/Spec/VMS.pm | |
| parent | 7302ea77198bcd86f8ad20f42dc567c07277b526 (diff) | |
| download | perl-2f03b6be283ae09fca92d09e4e393d99ef1c38d4.tar.gz | |
Keep verbatim pod in File::VMS/Win32 within 80 cols
Diffstat (limited to 'dist/Cwd/lib/File/Spec/VMS.pm')
| -rw-r--r-- | dist/Cwd/lib/File/Spec/VMS.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/dist/Cwd/lib/File/Spec/VMS.pm b/dist/Cwd/lib/File/Spec/VMS.pm index 120575a3e0..9164dbcc59 100644 --- a/dist/Cwd/lib/File/Spec/VMS.pm +++ b/dist/Cwd/lib/File/Spec/VMS.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.34'; +$VERSION = '3.35'; $VERSION = eval $VERSION; @ISA = qw(File::Spec::Unix); @@ -602,7 +602,8 @@ sub file_name_is_absolute { =item splitpath (override) ($volume,$directories,$file) = File::Spec->splitpath( $path ); - ($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file ); + ($volume,$directories,$file) = File::Spec->splitpath( $path, + $no_file ); Passing a true value for C<$no_file> indicates that the path being split only contains directory components, even on systems where you |