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