diff options
Diffstat (limited to 'list/list')
-rwxr-xr-x | list/list | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -9,12 +9,12 @@ use Getopt::Std; BEGIN { getopt('Ep:s:') } -if (/^\.\s*l\(\s*$/ .. /^\.\s*l\)\s*$/) { +if (/^\.\s*\(l\s*$/ .. /^\.\s*\)l\s*$/) { not $opt_E and s/^\\!// and next; - if (/^\.\s*l\(\s*$/) { + if (/^\.\s*\(l\s*$/) { $_ = ''; $_ = "$opt_p\n" if $opt_p; - } elsif (/^\.\s*l\)\s*$/) { + } elsif (/^\.\s*\)l\s*$/) { $_ = ''; $_ = "$opt_s\n" if $opt_s; } else { |