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

diff --git a/lib/perl/Configure.pm b/lib/perl/Configure.pm
index 4ab9e7276c0a85de4871d8a65ae57ab680d821c1..cf082cca1c238ffdba180ed1590f9a78a64fdd12 100644 (file)
--- 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;