From 0a2e340ded0614f73596bd90e586b5a8797fcbd2 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 19 Jun 2000 09:44:00 +0000 Subject: *** empty log message *** --- tools/syncrpms | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tools') diff --git a/tools/syncrpms b/tools/syncrpms index d18bdc025..ccb806d6c 100755 --- a/tools/syncrpms +++ b/tools/syncrpms @@ -66,7 +66,7 @@ sub get_rpms { opendir D, $dir or die "cannot open directory $dir\n"; map { - if (/([^\/]*?)-([^-]*)-([^-]*)\.([^-]*)\.rpm$/) { + if (/([^\/]*?)-([^-]*)-([^-]*)\.([^-\.]*)\.rpm$/) { my $key = "$1 $4"; #- get name including architecture. if ($rpms->{$key}) { if (version_compare($2, $rpms->{$key}{version}) > 0 || @@ -255,10 +255,10 @@ sub main { #- parse directory structures. get_rpms($_, \%source, \%flag, 0) foreach @from_rpms; - get_rpms($_, \%target, \%flag, 1) foreach @to_rpms; - print STDERR "reading " . scalar(keys %source) . " packages as source rpms from\n"; print STDERR " $_\n" foreach @from_rpms; + + get_rpms($_, \%target, \%flag, 1) foreach @to_rpms; print STDERR "reading " . scalar(keys %target) . " packages as target rpms from\n"; print STDERR " $_\n" foreach @to_rpms; -- cgit v1.2.1