perl-5.6 improvement

24 years ago · 686cf50f9c
1 changed files with 1 additions and 1 deletions
--- a/lib/Info.pm
+++ b/lib/Info.pm
@ -244,7 +244,7 @@ sub menu {
      open(FINDMENU,"$filelist");
       while (<FINDMENU>) {
         chomp;
-         if (m,^\/usr\/lib\/menu\/(.*[\w-\+\.]),) {
+         if (m,^\/usr\/lib\/menu\/(.*(\w-\+\.)),) {
          if (!-d) { 
           print "#####menu for $orig_argument($1)#####\n";
           open(MENU,"$_");