Help for this page

Select Code to Download


  1. or download this
    ## 
    # This isn't part of the core logic: we're just trying to make regexp
    ...
    my @name_regexps = map { s/\./\\./g;
                s/\*/(\.+)?/g;
                qr {$_}; } @name_patterns;