package File::Spec::Epoc;
-our $VERSION = '1.00';
-
use strict;
use Cwd;
-use vars qw(@ISA);
+use vars qw($VERSION @ISA);
+
+$VERSION = '1.1';
+
require File::Spec::Unix;
@ISA = qw(File::Spec::Unix);
the semantics.
This package is still work in progress ;-)
-o.flebbe@gmx.de
+=head1 AUTHORS
-=over 4
+o.flebbe@gmx.de
+
+=cut
sub case_tolerant {
return 1;
}
+=pod
+
+=over 4
+
=item canonpath()
No physical check on the filesystem, but a logical cleanup of a
path. On UNIX eliminated successive slashes and successive "/.".
+=back
+
=cut
sub canonpath {
return $path;
}
-=back
-
=head1 SEE ALSO
L<File::Spec>