From c351bf64418b9d30a16300d74cdc22cab9320685 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 18 Dec 2002 12:54:09 +0000
Subject: perl_checker fixes

---
 URPM.pm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'URPM.pm')

diff --git a/URPM.pm b/URPM.pm
index c7c6c09..afe43f4 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -1,14 +1,12 @@
 package URPM;
 
 use strict;
-use vars qw($VERSION @ISA);
+use DynaLoader;
 
-require DynaLoader;
+our @ISA = qw(DynaLoader);
+our $VERSION = '0.81';
 
-@ISA = qw(DynaLoader);
-$VERSION = '0.81';
-
-bootstrap URPM $VERSION;
+URPM->bootstrap($VERSION);
 
 sub new {
     my ($class) = @_;
@@ -20,7 +18,7 @@ sub new {
 
 sub search {
     my ($urpm, $name, %options) = @_;
-    my $best = undef;
+    my $best;
 
     #- tries other alternative if no strict searching.
     unless ($options{strict}) {
@@ -77,7 +75,8 @@ sub traverse {
 
 sub traverse_tag {
     my ($urpm, $tag, $names, $callback) = @_;
-    my ($count, %names) = (0);
+    my $count = 0; 
+    my %names;
 
     if (@{$names || []}) {
 	if ($tag eq 'name') {
-- 
cgit v1.2.1