From ca5f4e21357a0b4a55e7a2a0f71e632442723989 Mon Sep 17 00:00:00 2001
From: Fabian Keil <fk@fabiankeil.de>
Date: Wed, 14 Nov 2012 11:40:31 +0100
Subject: runtests and friends: Do not add undefined values to @INC

On FreeBSD this fixes the warning:
Use of uninitialized value $p in string eq at /usr/local/lib/perl5/5.14.2/BSDPAN/BSDPAN.pm line 36.
---
 tests/tftpserver.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tests/tftpserver.pl')

diff --git a/tests/tftpserver.pl b/tests/tftpserver.pl
index c5382ec66..60fc32d19 100755
--- a/tests/tftpserver.pl
+++ b/tests/tftpserver.pl
@@ -22,7 +22,8 @@
 #***************************************************************************
 
 BEGIN {
-    @INC=(@INC, $ENV{'srcdir'}, '.');
+    push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
+    push(@INC, ".");
 }
 
 use strict;
-- 
cgit v1.2.3