Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 25. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / perl-modules / Platon / File / Spec

Rozdiely pre perl-modules/Platon/File/Spec/Unix.pm medzi verziami 1.2 a 1.3

verzia 1.2, 2005/07/19 19:42:32 verzia 1.3, 2007/04/29 23:40:05
Riadok 15 
Riadok 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;
   
Riadok 52  sub canonpath { # {{{
Riadok 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:
Odstranené z verzie1.2  
zmenené riadky
  Pridané vo verzii1.3
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok