oh these modern perl variants... always complaining about ye olde code
This commit is contained in:
parent
941bc10cfa
commit
ad09108fde
1 changed files with 1 additions and 1 deletions
|
|
@ -381,7 +381,7 @@ mvwlock();
|
|||
$SIG{__DIE__} = 'cleanup';
|
||||
|
||||
cmdline;
|
||||
unless (defined @source) { @source = read_cur_dir; }
|
||||
unless (@source) { @source = read_cur_dir; }
|
||||
|
||||
if (@pattern) {
|
||||
@target = @source;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue