oh these modern perl variants... always complaining about ye olde code

This commit is contained in:
Ward Wouts 2015-02-26 12:43:29 +00:00
parent 941bc10cfa
commit ad09108fde

View file

@ -381,7 +381,7 @@ mvwlock();
$SIG{__DIE__} = 'cleanup'; $SIG{__DIE__} = 'cleanup';
cmdline; cmdline;
unless (defined @source) { @source = read_cur_dir; } unless (@source) { @source = read_cur_dir; }
if (@pattern) { if (@pattern) {
@target = @source; @target = @source;