Committer: gariev
Mkaing this script work without Devel::Size moduleU trunk/bin/upgrading/wurfl/bin/wurfl_update.pl
Modified: trunk/bin/upgrading/wurfl/bin/wurfl_update.pl =================================================================== --- trunk/bin/upgrading/wurfl/bin/wurfl_update.pl 2010-09-01 18:16:57 UTC (rev 17254) +++ trunk/bin/upgrading/wurfl/bin/wurfl_update.pl 2010-09-01 19:06:38 UTC (rev 17255) @@ -5,17 +5,12 @@ use LJ::WURFL; use LJ::WURFL::Parser; - use FindBin; use File::Spec::Functions qw(catfile); - use Getopt::Long; -use Devel::Size qw(total_size); - my $wurfl_file = "wurfl.xml"; my $store_file = "wireless.stor"; - my $datadir = catfile($FindBin::Bin, '..', 'data'); my ($noparse, $test, $verbose) = 3 x 0; @@ -35,6 +30,12 @@ } if ($test) { + if (eval {require "Devel/Size.pm"}) { + *total_size = \&Devel::Size::total_size; + } else { + *total_size = sub { "unknown" }; + } + print "Load wireless data.\n"; my $wurfl = new LJ::WURFL; print "Cannot load data file.\n" unless $wurfl->load(catfile($datadir,$store_file));