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:
parent
81dcd82bab
commit
686cf50f9c
@ -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,"$_");
|
||||
|
Loading…
x
Reference in New Issue
Block a user