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;