Subversion Repositories DevTools

Rev

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

Rev 299 Rev 301
Line 6055... Line 6055...
6055 
        #       Allow files with a $ in the name
 6055 
        #       Allow files with a $ in the name
6056 
        #       Allow files with a space in the name
 6056 
        #       Allow files with a space in the name
6057 
        #   Only for file names that don't look like $(GBE_...) as these
 6057 
        #   Only for file names that don't look like $(GBE_...) as these
6058 
        #   may be generated internally
 6058 
        #   may be generated internally
6059 
        #
 6059 
        #
6060 
        unless ( m~\$\(GBE_.+\)~ )
 6060 
        unless ( $name =~ m~\$\(GBE_.+\)~ )
6061 
        {
 6061 
        {
6062 
            s~\$~\$\$~g;
 6062 
            $name =~ s~\$~\$\$~g;
6063 
            s~ ~\\ ~g;
 6063 
            $name =~ s~ ~\\ ~g;
6064 
        }
 6064 
        }
6065 
 
 6065 
 
6066 
        if ( ! /^--(.*)/ )
 6066 
        if ( ! /^--(.*)/ )
6067 
        {
 6067 
        {
6068 
            $basename = StripDir( $name );
 6068 
            $basename = StripDir( $name );