FM / Spec

/usr/share/perl5/File/Spec

Name	Size	Mode	Actions
Cygwin.pm	3459	0644	edit dl rm
Epoc.pm	1591	0644	edit dl rm
Functions.pm	1882	0644	edit dl rm
Mac.pm	22665	0644	edit dl rm
OS2.pm	6784	0644	edit dl rm
Unix.pm	13857	0644	edit dl rm
VMS.pm	36323	0644	edit dl rm
Win32.pm	11048	0644	edit dl rm

Edit: /usr/share/perl5/File/Spec/Epoc.pm (1591B)

package File::Spec::Epoc;

use strict;
use vars qw($VERSION @ISA);

$VERSION = '3.30';
$VERSION = eval $VERSION;

require File::Spec::Unix;
@ISA = qw(File::Spec::Unix);

=head1 NAME

File::Spec::Epoc - methods for Epoc file specs

=head1 SYNOPSIS

require File::Spec::Epoc; # Done internally by File::Spec if needed

=head1 DESCRIPTION

See File::Spec::Unix for a documentation of the methods provided
there. This package overrides the implementation of these methods, not
the semantics.

This package is still work in progress ;-)

=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 {
    my ($self,$path) = @_;
    return unless defined $path;

$path =~ s|/+|/|g;                             # xx////xx  -> xx/xx
    $path =~ s|(/\.)+/|/|g;                        # xx/././xx -> xx/xx
    $path =~ s|^(\./)+||s unless $path eq "./";    # ./xx      -> xx
    $path =~ s|^/(\.\./)+|/|s;                     # /../../xx -> xx
    $path =~  s|/\Z(?!\n)|| unless $path eq "/";          # xx/       -> xx
    return $path;
}

=pod

=head1 AUTHOR

o.flebbe@gmx.de

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
implementation of these methods, not the semantics.

=cut

cmd: