diff options
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); |