osVersion => $osVersion,
perlPath => $perl_path,
perlVersion => $perlVersion,
- perlIncPath => [ map { perlinc => $_ }, sort @INC ],
+ perlIncPath => [ map { perlinc => $_ }, @INC ],
mysqlVersion => $mysqlVersion,
apacheVersion => $apacheVersion,
zebraVersion => $zebraVersion,
DBI
Data::Dumper
Date::Calc
+Data::ICal
Date::Manip
Digest::MD5
+Email::Date
File::Temp
+GD
GD::Barcode::UPCE
Getopt::Long
Getopt::Std
HTML::Template::Pro
HTTP::Cookies
HTTP::Request::Common
+HTML::Scrubber
LWP::Simple
LWP::UserAgent
Lingua::Stem
List::Util
+List::MoreUtils
Locale::Language
MARC::Crosswalk::DublinCore
MARC::Charset
MARC::File::XML
MARC::Record
MIME::Base64
+MIME::Lite
MIME::QuotedPrint
Mail::Sendmail
+Net::LDAP
+Net::LDAP::Filter
Net::Z3950::ZOOM
PDF::API2
PDF::API2::Page
PDF::API2::Util
PDF::Reuse
PDF::Reuse::Barcode
+POE
POSIX
Schedule::At
+SMS::Send
Term::ANSIColor
Test
Test::Harness
else {
$version = 'module is missing';
}
- $counter++;
- $counter=0 if $counter >3;
push(
@components,
{
name => $component,
version => $version,
- counter => $counter,
+ newrow => (++$counter % 4) ? 0 : 1,
}
);
}