[Koha-cvs] koha/misc Install.pm [dev_week]

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Chris Cormack <rangi>   06/06/04 05:14:22

Modified files:
        misc           : Install.pm 

Log message:
        Fixing syntax errors

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/Install.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.88.2.6&r2=1.88.2.6.2.1

Patches:
Index: Install.pm
===================================================================
RCS file: /sources/koha/koha/misc/Install.pm,v
retrieving revision 1.88.2.6
retrieving revision 1.88.2.6.2.1
diff -u -b -r1.88.2.6 -r1.88.2.6.2.1
--- Install.pm  27 Feb 2006 16:31:37 -0000      1.88.2.6
+++ Install.pm  4 Jun 2006 05:14:22 -0000       1.88.2.6.2.1
@@ -24,6 +24,7 @@
 
 use strict;
 use POSIX;
+
 #MJR: everyone will have these modules, right?
 # They look like part of perl core to me
 #use Term::Cap;
@@ -52,7 +53,8 @@
 =cut
 
 # set the version for version checking
-$VERSION = 0.01;
+$VERSION = do { my @v = '$Revision: 1.88.2.6.2.1 $' =~ /\d+/g;
+    shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
 @EXPORT = qw(
@@ -881,13 +883,13 @@
                        push @missing, "Net::Z3950";
                }
     }
-    unless (eval {require LWP::Simple)       {
+    unless (eval {require LWP::Simple})       {
                showmessage(getmessage('LWP::Simple'), 'PressEnter', '', 1);
                if ($#missing>=0) { # see above note
                        push @missing, "LWP::Simple";
                }
     }
-    unless (eval {require XML::Simple)       {
+    unless (eval {require XML::Simple})       {
                showmessage(getmessage('XML::Simple'), 'PressEnter', '', 1);
                if ($#missing>=0) { # see above note
                        push @missing, "XML::Simple";