bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-09-16 16:41:39 -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
Download Patch File Download Diff File Expand all files Collapse all files
lib/Info.pm
+1 -1
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,"$_");