[Koha-cvs] koha/misc Install.pm [dev_week]
Chris Cormack
chris at katipo.co.nz
Sun Jun 4 07:14:22 CEST 2006
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";
More information about the Koha-cvs
mailing list