Parent Directory
| 
Revision Log
| 
Patch
| revision 1.53 by joy, Thu Dec 5 13:42:48 2002 UTC | revision 1.54 by djpig, Fri Apr 18 23:39:08 2003 UTC | |
|---|---|---|
| # | Line 38 $opt_d = "u"; | Line 38 $opt_d = "u"; |
| 38 | $opt_l = undef; | $opt_l = undef; |
| 39 | getopts('h:w:p:t:vd:l:') || die; | getopts('h:w:p:t:vd:l:') || die; |
| 40 | # Replace filename globbing by Perl regexps | # Replace filename globbing by Perl regexps |
| 41 | $opt_p =~ s/\,/\\./g; | $opt_p =~ s/\./\\./g; |
| 42 | $opt_p =~ s/\?/./g; | $opt_p =~ s/\?/./g; |
| 43 | $opt_p =~ s/\*/.*/g; | $opt_p =~ s/\*/.*/g; |
| 44 | $opt_p =~ s/$/\$/g; | $opt_p =~ s/$/\$/g; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |