projects
/
feisty_meow.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fc9b158
)
dropping debugging again
author
Fred T. Hamster
<fred@gruntose.com>
Sun, 12 Nov 2023 20:44:51 +0000
(15:44 -0500)
committer
Fred T. Hamster
<fred@gruntose.com>
Sun, 12 Nov 2023 20:44:51 +0000
(15:44 -0500)
scripts/files/filename_helper.pl
patch
|
blob
|
history
diff --git
a/scripts/files/filename_helper.pl
b/scripts/files/filename_helper.pl
index 50b71edc7a626675923fc7f6ffcacc9c92830a9c..3be75c780d307c2a4f2fb9aa01cf6a941a10a354 100644
(file)
--- a/
scripts/files/filename_helper.pl
+++ b/
scripts/files/filename_helper.pl
@@
-75,7
+75,7
@@
sub glob_list {
$match =~ s/\*/.*/g; # replace asterisks with dot star.
$match =~ s/\+/\\+/g; # escape plusses.
$match =~ s/\?/\\?/g; # escape question marks.
$match =~ s/\*/.*/g; # replace asterisks with dot star.
$match =~ s/\+/\\+/g; # escape plusses.
$match =~ s/\?/\\?/g; # escape question marks.
- $match =~ s/\|/\\
?
/g; # escape pipe char.
+ $match =~ s/\|/\\
|
/g; # escape pipe char.
$match =~ s/\$/\\\$/g; # escape dollar sign.
$match =~ s/\[/\\[/g; # escape open bracket.
$match =~ s/\]/\\]/g; # escape close bracket.
$match =~ s/\$/\\\$/g; # escape dollar sign.
$match =~ s/\[/\\[/g; # escape open bracket.
$match =~ s/\]/\\]/g; # escape close bracket.
@@
-89,6
+89,7
@@
sub glob_list {
if ($possible_name =~ /$match/) {
# this one matches so add it.
push @to_return, $chopped_filename[0] . $possible_name;
if ($possible_name =~ /$match/) {
# this one matches so add it.
push @to_return, $chopped_filename[0] . $possible_name;
+#print "a match on: $chopped_filename\n";
}
}
}
}
}
}