From ad09108fde432c045b82c73ff452ec53f1a3dd63 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Thu, 26 Feb 2015 12:43:29 +0000
Subject: [PATCH] oh these modern perl variants... always complaining about ye
 olde code

---
 mvwrap/mvwrap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mvwrap/mvwrap b/mvwrap/mvwrap
index 0e80f9d..2922539 100755
--- a/mvwrap/mvwrap
+++ b/mvwrap/mvwrap
@@ -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;