You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
368 B
14 lines
368 B
7 years ago
|
diff -up a/x2p/find2perl.PL b/x2p/find2perl.PL
|
||
|
|
--- a/x2p/find2perl.PL 2010-12-30 03:07:17.000000000 +0100
|
||
|
|
+++ b/x2p/find2perl.PL 2012-05-29 10:18:11.697683643 +0200
|
||
|
|
@@ -681,7 +681,8 @@ sub tab () {
|
||
|
|
sub fileglob_to_re ($) {
|
||
|
|
my $x = shift;
|
||
|
|
$x =~ s#([./^\$()+])#\\$1#g;
|
||
|
|
- $x =~ s#([?*])#.$1#g;
|
||
|
|
+ $x =~ s#\*#.*#g;
|
||
|
|
+ $x =~ s#\?#.#g;
|
||
|
|
"^$x\\z";
|
||
|
|
}
|
||
|
|
|