diff options
author | Anne Nicolas <ennael@mageia.org> | 2012-03-06 21:41:08 +0000 |
---|---|---|
committer | Anne Nicolas <ennael@mageia.org> | 2012-03-06 21:41:08 +0000 |
commit | b5679c5f88c2fe0a2db749ca6ad65291a31087e3 (patch) | |
tree | e5dbd98670605a424af059bd58c7c217b4040b39 /BCD/Resign.pm | |
parent | 1e7fe329534cf1ffee0e1f445a01f504ba33a04f (diff) | |
download | bcd-b5679c5f88c2fe0a2db749ca6ad65291a31087e3.tar bcd-b5679c5f88c2fe0a2db749ca6ad65291a31087e3.tar.gz bcd-b5679c5f88c2fe0a2db749ca6ad65291a31087e3.tar.bz2 bcd-b5679c5f88c2fe0a2db749ca6ad65291a31087e3.tar.xz bcd-b5679c5f88c2fe0a2db749ca6ad65291a31087e3.zip |
Mageia 2 Beta 1 release
Diffstat (limited to 'BCD/Resign.pm')
-rw-r--r-- | BCD/Resign.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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); |