Subversion Repositories DevTools

Rev

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

Rev 263 Rev 273
Line 429... Line 429...
429 
    my %patmap = (
 429 
    my %patmap = (
430 
        '*' => '[^/]*',
 430 
        '*' => '[^/]*',
431 
        '?' => '[^/]',
 431 
        '?' => '[^/]',
432 
        '[' => '[',
 432 
        '[' => '[',
433 
        ']' => ']',
 433 
        ']' => ']',
- 
 
 434 
        '-' => '-',
434 
    );
 435 
    );
435 
    $globstr =~ s{(.)} { $patmap{$1} || "\Q$1" }ge;
 436 
    $globstr =~ s{(.)} { $patmap{$1} || "\Q$1" }ge;
436 
    return '/' . $globstr . '$';
 437 
    return '/' . $globstr . '$';
437 
}
 438 
}
438 
 
 439