1
0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00

perl-5.6 improvement

This commit is contained in:
freesource 2001-01-29 06:46:45 +00:00
parent 81dcd82bab
commit 686cf50f9c

View File

@ -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,"$_");