Subversion Repositories DevTools

Rev

Rev 6906 | Rev 7010 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6906 Rev 7009
Line 7011... Line 7011...
7011 
                $dir =~ s~//~/~g;
 7011 
                $dir =~ s~//~/~g;
7012 
                $dir =~ s~/./~/~g;
 7012 
                $dir =~ s~/./~/~g;
7013 
                $dir =~ s~/$~~g;
 7013 
                $dir =~ s~/$~~g;
7014 
                $name = $basename;
 7014 
                $name = $basename;
7015 
            }
 7015 
            }
7016 
 
 - 
 
7017 
            $name = StripPath($name, $strip) if ($strip);
 7016 
            $name = StripPath($name, $strip) if ($strip);
7018 
 
 7017 
 
7019 
            if ( $strip_base )
 7018 
            if ( $strip_base )
7020 
            {
 7019 
            {
7021 
                $name = substr $name, $strip_base;
 7020 
                $name = substr $name, $strip_base;