diff options
| -rw-r--r-- | URPM.pm | 15 | ||||
| -rw-r--r-- | perl-URPM.spec | 5 |
2 files changed, 11 insertions, 9 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') { diff --git a/perl-URPM.spec b/perl-URPM.spec index a3f9b76..cff51c7 100644 --- a/perl-URPM.spec +++ b/perl-URPM.spec @@ -1,7 +1,7 @@ %define name perl-URPM %define real_name URPM %define version 0.81 -%define release 1mdk +%define release 2mdk %{expand:%%define rpm_version %(rpm -q --queryformat '%{VERSION}-%{RELEASE}' rpm)} @@ -49,6 +49,9 @@ rm -rf $RPM_BUILD_ROOT %changelog +* Wed Dec 18 2002 Pixel <pixel@mandrakesoft.com> 0.81-2mdk +- perl_checker fixes + * Tue Dec 17 2002 François Pons <fpons@mandrakesoft.com> 0.81-1mdk - little improve on traverse_tag with tag name whit --env. - big improve on traverse_tag with tag whatrequires and |