diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-09 06:19:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-09 08:34:27 -0700 |
| commit | 7302ea77198bcd86f8ad20f42dc567c07277b526 (patch) | |
| tree | 95a83509d055c4b71a02cab3726c59db46e467f3 | |
| parent | 2674d7ed407d638011150d4d3fbd7e660543480a (diff) | |
| download | perl-7302ea77198bcd86f8ad20f42dc567c07277b526.tar.gz | |
Keep verbatim pod in File::Mac/Unix within 80 cols
| -rw-r--r-- | dist/Cwd/lib/File/Spec/Mac.pm | 25 | ||||
| -rw-r--r-- | dist/Cwd/lib/File/Spec/Unix.pm | 5 | ||||
| -rw-r--r-- | t/porting/known_pod_issues.dat | 2 |
3 files changed, 18 insertions, 14 deletions
diff --git a/dist/Cwd/lib/File/Spec/Mac.pm b/dist/Cwd/lib/File/Spec/Mac.pm index f47293cb2d..1fa533cd36 100644 --- a/dist/Cwd/lib/File/Spec/Mac.pm +++ b/dist/Cwd/lib/File/Spec/Mac.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); @@ -156,13 +156,16 @@ their Unix counterparts: Unix: Unix->catdir("","") = "/" Unix->catdir("",".") = "/" - Unix->catdir("","..") = "/" # can't go beyond root + Unix->catdir("","..") = "/" # can't go + # beyond root Unix->catdir("",".","..","..","a") = "/a" Mac: - Mac->catdir("","") = rootdir() # (e.g. "HD:") + Mac->catdir("","") = rootdir() # (e.g. "HD:") Mac->catdir("",":") = rootdir() - Mac->catdir("","::") = rootdir() # can't go beyond root - Mac->catdir("",":","::","::","a") = rootdir() . "a:" # (e.g. "HD:a:") + Mac->catdir("","::") = rootdir() # can't go + # beyond root + Mac->catdir("",":","::","::","a") = rootdir() . "a:" + # (e.g. "HD:a:") However, this approach is limited to the first arguments following "root" (again, see C<Unix-E<gt>canonpath()> ). If there are more @@ -400,10 +403,11 @@ the filename '' is always considered to be absolute. Note that with version E.g. - File::Spec->file_name_is_absolute("a"); # false (relative) - File::Spec->file_name_is_absolute(":a:b:"); # false (relative) - File::Spec->file_name_is_absolute("MacintoshHD:"); # true (absolute) - File::Spec->file_name_is_absolute(""); # true (absolute) + File::Spec->file_name_is_absolute("a"); # false (relative) + File::Spec->file_name_is_absolute(":a:b:"); # false (relative) + File::Spec->file_name_is_absolute("MacintoshHD:"); + # true (absolute) + File::Spec->file_name_is_absolute(""); # true (absolute) =cut @@ -440,7 +444,8 @@ sub path { =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. diff --git a/dist/Cwd/lib/File/Spec/Unix.pm b/dist/Cwd/lib/File/Spec/Unix.pm index b276b21392..9f024e00be 100644 --- a/dist/Cwd/lib/File/Spec/Unix.pm +++ b/dist/Cwd/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use vars qw($VERSION); -$VERSION = '3.33'; +$VERSION = '3.34'; $VERSION = eval $VERSION; =head1 NAME @@ -238,7 +238,8 @@ sub join { =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. On systems with no concept of volume, returns '' for volume. diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index b67509bcd3..53ffc01c24 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/mac.pm Verbatim line length including indents exceeds 80 by 9 -dist/cwd/lib/file/spec/unix.pm Verbatim line length including indents exceeds 80 by 1 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 |