bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -04:00
Code Issues Projects Releases Wiki Activity

perl-5.6 improvement

Browse Source
This commit is contained in:
freesource 2001-01-29 06:46:45 +00:00
parent 81dcd82bab
commit 686cf50f9c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Info.pm
View File

@ -244,7 +244,7 @@ sub menu {
open(FINDMENU,"$filelist"); open(FINDMENU,"$filelist");
while (<FINDMENU>) { while (<FINDMENU>) {
chomp; chomp;
if (m,^\/usr\/lib\/menu\/(.*[\w-\+\.]),) { if (m,^\/usr\/lib\/menu\/(.*(\w-\+\.)),) {
if (!-d) { if (!-d) {
print "#####menu for $orig_argument($1)#####\n"; print "#####menu for $orig_argument($1)#####\n";
open(MENU,"$_"); open(MENU,"$_");