From 654458015ed1f60db273d6258ad770f3bda54ab8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 16 Mar 2014 23:05:01 +0100 Subject: perl_checker cleanup --- Makefile.PL | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Makefile.PL b/Makefile.PL index fd41a21..e3f0ca3 100755 --- a/Makefile.PL +++ b/Makefile.PL @@ -18,7 +18,7 @@ defined $rpm_path or die "Can't find rpm on this system\n"; sub hexversion { my ($major, $minor, $micro) = (@_[0] =~ /(\d+)\.(\d+)\.?(\d+)?/); - return int($major<<16) + int($minor<<8) + int($micro<<0) + return int($major<<16) + int($minor<<8) + int($micro<<0); } my $version = `LC_ALL=C $rpm_path --version`; -- cgit v1.2.1