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

PathTools documentation Contained in the PathTools distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

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

DESCRIPTION

Top

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 ;-)

canonpath()

No physical check on the filesystem, but a logical cleanup of a path. On UNIX eliminated successive slashes and successive "/.".

AUTHOR

Top

o.flebbe@gmx.de

COPYRIGHT

Top

Copyright (c) 2004 by the Perl 5 Porters. All rights reserved.

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

SEE ALSO

Top

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

PathTools documentation Contained in the PathTools distribution. 
package File::Spec::Epoc;

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

$VERSION = '3.33';
$VERSION = eval $VERSION;

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


sub case_tolerant {
    return 1;
}


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;
}


1;