Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Saturday, October 17, 2026
[BACK] [TXT][DIR] Up to [Platon] / perl-modules / Platon / File / Spec

Diff for perl-modules/Platon/File/Spec/Unix.pm between version 1.2 and 1.3

version 1.2, 2005/07/19 19:42:32 version 1.3, 2007/04/29 23:40:05
Line 15 
Line 15 
 # 2005-07-19 - created  # 2005-07-19 - created
 #  #
   
 # $Platon: perl-modules/Platon/File/Spec/Unix.pm,v 1.1 2005/07/19 19:12:49 rajo Exp $  # $Platon: perl-modules/Platon/File/Spec/Unix.pm,v 1.2 2005/07/19 19:42:32 rajo Exp $
   
 package Platon::File::Spec::Unix;  package Platon::File::Spec::Unix;
   
Line 52  sub canonpath { # {{{
Line 52  sub canonpath { # {{{
     $path =~ s|^/(\.\./)+|/|s;                     # /../../xx -> xx      $path =~ s|^/(\.\./)+|/|s;                     # /../../xx -> xx
   
         # added by Lubonir Host 'rajo' <rajo AT platon.sk>          # added by Lubonir Host 'rajo' <rajo AT platon.sk>
         $path =~ s|([^/]+)/(\.\./)+||g;                # xx/yy/../xx -> xx/xx          do { } while ($path =~ s|([^/]+)/(\.\./)||g);                # xx/yy/../xx -> xx/xx
   
     $path =~ s|/\Z(?!\n)|| unless $path eq "/";    # xx/       -> xx      $path =~ s|/\Z(?!\n)|| unless $path eq "/";    # xx/       -> xx
     return "$node$path";      return "$node$path";
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top