From b5679c5f88c2fe0a2db749ca6ad65291a31087e3 Mon Sep 17 00:00:00 2001
From: Anne Nicolas <ennael@mageia.org>
Date: Tue, 6 Mar 2012 21:41:08 +0000
Subject: Mageia 2 Beta 1 release

---
 BCD/Resign.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'BCD/Resign.pm')

diff --git a/BCD/Resign.pm b/BCD/Resign.pm
index b6cc001..2dc9e94 100644
--- a/BCD/Resign.pm
+++ b/BCD/Resign.pm
@@ -21,7 +21,7 @@ if (defined $pwd_file) {
 }
 
 sub print_info {
-	map { if (!-f $pwd_file) { print_color("$LOG I cant find $_ file, i cant sign packages...", $color); } } $rpmrc, $pwd_file;
+	map { if (!-f $pwd_file) { print_color("$LOG I cant find $_ file, i cant sign packages...", $color) } } $rpmrc, $pwd_file;
 	print_color("$LOG i will resign using info in those files: $rpmrc $pwd_file", $color);
 }
 
@@ -30,7 +30,7 @@ sub resign_media {
 	my $pm = new Parallel::ForkManager($NB_FORK);
 	my @list_path; my @checked; my $already_done;
 	foreach my $media (@{$isoconf->{media}{list}}) {
-	    	foreach (@checked) { $_ or next ; $media->{destmedia} =~ /^$_$/ and $already_done = 1; };
+	    	foreach (@checked) { $_ or next; $media->{destmedia} =~ /^$_$/ and $already_done = 1 }
 	        $already_done and next;
 		push @checked, $media->{destmedia};
 		push @list_path, $media->{destmedia};
@@ -49,9 +49,9 @@ sub resign_media {
 	        print("$basename_pkg ($status/$count)\n");
 	        my $command = Expect->spawn("LC_ALL=C rpm --rcfile=$rpmrc --resign $pkg") or die "Couldn't start rpm: $!\n";
 	        $command->log_stdout($verbose);
-	        $command->expect(20, -re, 'Enter pass phrase:' => sub { print $command $password; });
+	        $command->expect(20, '-re', 'Enter pass phrase:' => sub { print $command $password });
 	        $command->expect(undef);
-		$command->soft_close();
+		$command->soft_close;
 	        $pm->finish;
 	}
 	print_color("Waiting for the end of some signature...", $color);
-- 
cgit v1.2.1