X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/b20af44b8176a2c2b21577d8b1ddc5fea2d63c5c..40f2eee5acdbe92aca68f47ffc6ee15aa3035f7e:/modules/Tool.pm diff --git a/modules/Tool.pm b/modules/Tool.pm index 5ed1ba2..1cd2456 100644 --- a/modules/Tool.pm +++ b/modules/Tool.pm @@ -6,7 +6,7 @@ package Tool; # Some shared sub routines # # Author: Patrick Canterino -# Last modified: 2005-11-10 +# Last modified: 2008-04-25 # use strict; @@ -183,6 +183,8 @@ sub dos_wildcard_match($$) { my ($pattern,$string) = @_; + return 1 if($pattern eq '*'); + # The following part is stolen from File::DosGlob # escape regex metachars but not glob chars