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 | |
| parent | 7302ea77198bcd86f8ad20f42dc567c07277b526 (diff) | |
| download | perl-2f03b6be283ae09fca92d09e4e393d99ef1c38d4.tar.gz | |
Keep verbatim pod in File::VMS/Win32 within 80 cols
| -rw-r--r-- | dist/Cwd/lib/File/Spec/VMS.pm | 5 | ||||
| -rw-r--r-- | dist/Cwd/lib/File/Spec/Win32.pm | 5 | ||||
| -rw-r--r-- | t/porting/known_pod_issues.dat | 2 |
3 files changed, 6 insertions, 6 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 diff --git a/dist/Cwd/lib/File/Spec/Win32.pm b/dist/Cwd/lib/File/Spec/Win32.pm index 81c0960bb5..fa5c3b16a6 100644 --- a/dist/Cwd/lib/File/Spec/Win32.pm +++ b/dist/Cwd/lib/File/Spec/Win32.pm @@ -5,7 +5,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); @@ -189,7 +189,8 @@ sub canonpath { =item splitpath ($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 ); Splits a path into volume, directory, and filename portions. Assumes that the last file is a path unless the path ends in '\\', '\\.', '\\..' diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index 53ffc01c24..768ec0d58d 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -136,8 +136,6 @@ dist/bignum/lib/bigint.pm Apparent broken link 1 dist/bignum/lib/bignum.pm Apparent broken link 1 dist/bignum/lib/bigrat.pm Apparent broken link 1 dist/constant/lib/constant.pm Apparent broken link 2 -dist/cwd/lib/file/spec/vms.pm Verbatim line length including indents exceeds 80 by 1 -dist/cwd/lib/file/spec/win32.pm Verbatim line length including indents exceeds 80 by 1 dist/data-dumper/dumper.pm ? Should you be using L<...> instead of 1 dist/data-dumper/dumper.pm Verbatim line length including indents exceeds 80 by 1 dist/extutils-install/lib/extutils/installed.pm Verbatim line length including indents exceeds 80 by 2 |