From 4bd0efc9df913ed36e7c4d489638e5e9f549ea16 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Mon, 1 Mar 2004 14:47:19 +0000
Subject: Fixed bug #7242: Firmware was not found by "gt68xx" SANE backend.

---
 perl-install/scanner.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index c73057d91..819ae84e2 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -87,7 +87,7 @@ sub setfirmware {
 
 sub installfirmware {
     # Install the firmware file in /usr/share/sane/firmware
-    my ($firmware) = @_;
+    my ($firmware, $backend) = @_;
     return "" if !$firmware;
     # Install firmware
     run_program::rooted($::prefix, "mkdir", "-p",
@@ -96,6 +96,18 @@ sub installfirmware {
 					  N("Could not create directory /usr/share/sane/firmware!"));
 			    return "";
 			};
+    # Link /usr/share/sane/firmware to /usr/share/sane/<backend name> as
+    # some backends ignore the supplied absolute path to the firmware file
+    # and always search their own directory
+    if ($backend) {
+	run_program::rooted($::prefix, "ln", "-sf",
+			    "/usr/share/sane/firmware",
+			    "/usr/share/sane/$backend") || do {
+				$in->ask_warn('Scannerdrake',
+					      N("Could not create link /usr/share/sane/%s!", $backend));
+				return "";
+			    };
+    }
     run_program::rooted($::prefix, "cp", "-f", "$firmware",
 			"/usr/share/sane/firmware") || do {
 			    $in->ask_warn('Scannerdrake',
-- 
cgit v1.2.1