Re: File/Spec/t/rel2abs2rel2whatever broken again

[p5sagit/p5-mst-13.2.git] / lib / File / Spec / Epoc.pm

diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
index 23c99fb..eec5a1a 100644 (file)
--- a/lib/File/Spec/Epoc.pm
+++ b/lib/File/Spec/Epoc.pm
@@ -1,5 +1,7 @@
 package File::Spec::Epoc;
 
+our $VERSION = '1.00';
+
 use strict;
 use Cwd;
 use vars qw(@ISA);
@@ -67,7 +69,7 @@ sub path {
     return undef;
 }
 
-=item canonpath
+=item canonpath()
 
 No physical check on the filesystem, but a logical cleanup of a
 path. On UNIX eliminated successive slashes and successive "/.".
@@ -134,7 +136,7 @@ sub splitpath {
 
 =item splitdir
 
-The opposite of L</catdir()>.
+The opposite of L<catdir()|File::Spec/catdir()>.
 
     @dirs = File::Spec->splitdir( $directories );
 
@@ -221,9 +223,9 @@ from the base path to the destination path:
     $rel_path = File::Spec->abs2rel( $destination ) ;
     $rel_path = File::Spec->abs2rel( $destination, $base ) ;
 
-If $base is not present or '', then L</cwd()> is used. If $base is relative, 
+If $base is not present or '', then L<cwd()|Cwd> is used. If $base is relative, 
 then it is converted to absolute form using L</rel2abs()>. This means that it
-is taken to be relative to L<cwd()>.
+is taken to be relative to L<cwd()|Cwd>.
 
 On systems with the concept of a volume, this assumes that both paths 
 are on the $destination volume, and ignores the $base volume.
@@ -233,7 +235,7 @@ $base filename as well. Otherwise all path components are assumed to be
 directories.
 
 If $path is relative, it is converted to absolute form using L</rel2abs()>.
-This means that it is taken to be relative to L</cwd()>.
+This means that it is taken to be relative to L<cwd()|Cwd>.
 
 Based on code written by Shigio Yamaguchi.
 
@@ -311,16 +313,16 @@ sub abs2rel {
     ) ;
 }
 
-=item rel2abs
+=item rel2abs()
 
 Converts a relative path to an absolute path. 
 
     $abs_path = File::Spec->rel2abs( $destination ) ;
     $abs_path = File::Spec->rel2abs( $destination, $base ) ;
 
-If $base is not present or '', then L<cwd()> is used. If $base is relative, 
+If $base is not present or '', then L<cwd()|Cwd> is used. If $base is relative, 
 then it is converted to absolute form using L</rel2abs()>. This means that it
-is taken to be relative to L</cwd()>.
+is taken to be relative to L<cwd()|Cwd>.
 
 Assumes that both paths are on the $base volume, and ignores the 
 $destination volume.