diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-03-16 23:05:01 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-03-18 07:37:27 +0100 |
| commit | 654458015ed1f60db273d6258ad770f3bda54ab8 (patch) | |
| tree | cd91fa36568f0470006102dc2ddb81a9b0522ce1 | |
| parent | 39f89d5755c6b119236ce28f23a0068597b06d93 (diff) | |
| download | perl-URPM-654458015ed1f60db273d6258ad770f3bda54ab8.tar perl-URPM-654458015ed1f60db273d6258ad770f3bda54ab8.tar.gz perl-URPM-654458015ed1f60db273d6258ad770f3bda54ab8.tar.bz2 perl-URPM-654458015ed1f60db273d6258ad770f3bda54ab8.tar.xz perl-URPM-654458015ed1f60db273d6258ad770f3bda54ab8.zip | |
perl_checker cleanup
| -rwxr-xr-x | Makefile.PL | 2 |
1 files changed, 1 insertions, 1 deletions
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`; |