From e47d0821bfd0def11d10bb68a46a3335934f283a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 6 Jan 2004 17:24:08 +0000
Subject: perl_checker compliance

---
 perl-install/fsedit.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/fsedit.pm')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 6aed45d48..dcba0d267 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -678,7 +678,8 @@ sub undo_prepare {
 sub undo {
     my ($all_hds) = @_;
     foreach (@{$all_hds->{hds}}) {
-	my $h; eval pop @{$_->{undo}} || next;
+	my $code = pop @{$_->{undo}} or next;
+	my $h; eval $code;
 	@$_{@partition_table::fields2save} = @$h;
 
 	$_->{isDirty} = $_->{needKernelReread} = 1 if $_->{hasBeenDirty};
-- 
cgit v1.2.1