From: Martin Mares <mj@ucw.cz>
Date: Thu, 26 Jun 2008 20:44:45 +0000 (+0200)
Subject: Configure: better guard against undef's returned by backticks.
X-Git-Tag: holmes-import~412
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=06547524e83b2a3128ef52ecf384864edc450796;p=libucw.git

Configure: better guard against undef's returned by backticks.
---

diff --git a/lib/perl/Configure.pm b/lib/perl/Configure.pm
index 4ab9e727..cf082cca 100644
--- a/lib/perl/Configure.pm
+++ b/lib/perl/Configure.pm
@@ -200,6 +200,7 @@ sub Finish() {
 sub TryCmd($) {
 	my ($cmd) = @_;
 	my $res = `$cmd`;
+	defined $res or return;
 	chomp $res;
 	return $res unless $?;
 	return;