From 4e3c73e5376bda898a6c6c9bbcc79029cf3feef8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 16 Jan 2009 16:50:23 +0000
Subject: (installfirmware) fix a crash when installing firmware (#40738)

---
 perl-install/scanner.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index ab8ec23f4..6fa73b18e 100644
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -88,6 +88,7 @@ sub installfirmware {
     # Install the firmware file in /usr/share/sane/firmware
     my ($firmware, $backend) = @_;
     return "" if !$firmware;
+    $in ||= interactive->vnew;
     # Install firmware
     run_program::rooted($::prefix, "mkdir", "-p",
 			"/usr/share/sane/firmware") or do {
-- 
cgit v1.2.1