From 2f3aaac785391d3574f54a2eb7ebe5befab2c2d1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Feb 2005 15:03:00 +0000
Subject: media_browser returns a filehandle when non save

---
 perl-install/partition_table.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index c4efd7d27..f6fe086c0 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -596,7 +596,12 @@ sub next_start {
 sub load {
     my ($hd, $file, $b_force) = @_;
 
-    open(my $F, $file) or die N("Error reading file %s", $file);
+    my $F;
+    if (ref $file) {
+	$F = $file;
+    } else {
+	open($F, $file) or die N("Error reading file %s", $file);
+    }
 
     my $h;
     {
-- 
cgit v1.2.1