From 72aa7dabb2407d8c76b6cdd590f5d42debed3b56 Mon Sep 17 00:00:00 2001 From: Guillaume Rousse Date: Tue, 29 Jan 2008 21:38:33 +0000 Subject: fix warning --- strip_files | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'strip_files') diff --git a/strip_files b/strip_files index 03bd460..d03de2b 100755 --- a/strip_files +++ b/strip_files @@ -18,7 +18,10 @@ use File::Find; # for use by File::Find. It'll fill the following 3 arrays with anything # it finds: my (@shared_libs, @executables, @static_libs); -my @exclude_files = (split(' ', $ENV{EXCLUDE_FROM_STRIP}), "/usr/lib/debug"); +my @exclude_files = ( + $ENV{EXCLUDE_FROM_STRIP} ? split(' ', $ENV{EXCLUDE_FROM_STRIP}) : (), + "/usr/lib/debug" +); # TODO: we should write a binding for libfile... sub expensive_test { -- cgit v1.2.1