[Padre-dev] Padre, Alien::wxWidgets and wxWidgets 2.8.10

[Cezary Morga]

Hi there.

I've noticed that with wxWidgets 2.8.10 the trailing zero is removed 
from Alien::wxWidgets->version. I've written to wxPerl mailing list 
(http://www.nntp.perl.org/group/perl.wxperl.users/2009/03/msg6422.html) 
about it, but even though Alien::wxWidgets->version returns the correct 
version number now Padre says during configuration that it found 2.8.1 
which might be misleading.

I've came up with some as ugly as this. What do you make of it?

--- inc/Module/Install/PRIVATE/Padre.pm.orig    2009-03-21 
20:36:42.000000000 +0100
+++ inc/Module/Install/PRIVATE/Padre.pm 2009-03-21 20:50:20.000000000 
+0100
@@ -59,9 +59,10 @@
        unless ( $widgets ) {
                nono("Alien::wxWidgets was unable to determine the 
wxWidgets version");
        }
-       my $widgets_human = $widgets;
-       $widgets_human =~ s/^(\d\.\d\d\d)(\d\d\d)$/$1.$2/;
-       $widgets_human =~ s/0//g;
+       my ($widgets_human, $w2, $w3) = $widgets =~ /(\d)\.(\d\d\d)
(\d\d\d)/;
+       $w2 =~ s/^0+//;
+       $w3 =~ s/^0+//;
+       $widgets_human .= ".$w2.$w3";
        print "Found wxWidgets $widgets_human\n";
        unless ( $widgets >= 2.008008 ) {
                nono("Padre needs at least version 2.8.8 of wxWidgets. 
You have wxWidgets $widgets_human");

-- 
Cezary Morga
"I generally avoid temptation unless I can't resist it." (Mae West)