summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-31 17:49:30 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-31 17:49:30 +0000
commit416760cf6e1a2bcd8080388e290fa12e3e74c377 (patch)
tree2b841530dcd292a2559218349f0881c60d410999 /perl-install/partition_table.pm
parent91419eac51774d733b905ac2d54b3bde60a208df (diff)
downloaddrakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.gz
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.bz2
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.xz
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.zip
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 49058e9ed..fbd5a57df 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -362,14 +362,14 @@ sub load($$;$) {
my ($hd, $file, $force) = @_;
local *F;
- open F, $file or die _("Error reading file $file");
+ open F, $file or die _("Error reading file %s", $file);
my $h;
{
no strict 'vars';
$h = eval join '', <F>;
}
- $@ and die _("Restoring from file $file failed: $@");
+ $@ and die _("Restoring from file %s failed: %s", $file, $@);
ref $h eq 'HASH' or die _("Bad backup file");
@@ -391,5 +391,5 @@ sub save($$) {
local *F;
open F, ">$file"
and print F Dumper(\%h)
- or die _("Error writing to file $file");
+ or die _("Error writing to file %s", $file);
}