[TWiki-Dev] [SVN] KennethLavrsen r12861 - twiki/branches/MAIN/lib/TWiki/Configure

[<de...@de...>]

Author: KennethLavrsen
Date: 2007-02-13 16:57:47 -0600 (Tue, 13 Feb 2007)
New Revision: 12861

Modified:
   twiki/branches/MAIN/lib/TWiki/Configure/Checker.pm
Log:
Item3564: Old perl libs does not return a version number making
configure crash. This fix makes it report the version as unknown
and as an error message but lets configure continue.
This makes configure run on perl 5.6.X


Modified: twiki/branches/MAIN/lib/TWiki/Configure/Checker.pm
===================================================================
--- twiki/branches/MAIN/lib/TWiki/Configure/Checker.pm	2007-02-13 22:52:18 UTC (rev 12860)
+++ twiki/branches/MAIN/lib/TWiki/Configure/Checker.pm	2007-02-13 22:57:47 UTC (rev 12861)
@@ -204,8 +204,9 @@
             $mod_version ||= '';
             $mod_version =~ s/(\d+(\.\d*)?).*/$1/; # keep 99.99 style only
             use strict 'refs';
-            if ($mod_version < $mod->{minimumVersion}) {
-                $n = $mod_version.' installed. Version '
+            if ( (!$mod_version) || ($mod_version < $mod->{minimumVersion}) ) {
+                $n = $mod_version || 'Unknown version';
+                $n .= ' installed. Version '
                    . $mod->{minimumVersion}.' '
                    . $mod->{disposition};
                 $n .= ' for '.$mod->{usage} if $mod->{usage};