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';
|
$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;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue