diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-18 12:54:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-18 12:54:09 +0000 |
| commit | c351bf64418b9d30a16300d74cdc22cab9320685 (patch) | |
| tree | 1b000cc5a9bccccb488c73dbf9e4c558e677c8f2 /URPM.pm | |
| parent | 6d2c5e8b142344fb51ab4d7adc8412deceaeab33 (diff) | |
| download | perl-URPM-c351bf64418b9d30a16300d74cdc22cab9320685.tar perl-URPM-c351bf64418b9d30a16300d74cdc22cab9320685.tar.gz perl-URPM-c351bf64418b9d30a16300d74cdc22cab9320685.tar.bz2 perl-URPM-c351bf64418b9d30a16300d74cdc22cab9320685.tar.xz perl-URPM-c351bf64418b9d30a16300d74cdc22cab9320685.zip | |
perl_checker fixes
Diffstat (limited to 'URPM.pm')
| -rw-r--r-- | URPM.pm | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -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') { |