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.1 a 1.2

verzia 1.1, 2005/07/19 19:12:49 verzia 1.2, 2005/07/19 19:42:32
Riadok 15 
Riadok 15 
 # 2005-07-19 - created  # 2005-07-19 - created
 #  #
   
 # $Platon$  # $Platon: perl-modules/Platon/File/Spec/Unix.pm,v 1.1 2005/07/19 19:12:49 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          $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.1  
zmenené riadky
  Pridané vo verzii1.2
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