for CGI running out of git, just unshift @INC instead of use lib

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index d7881a089afb7aed68424bdfab7744a0f28d78c8..d153e086280ca1f7bafb045e8550438855bb0b70 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -34,9 +34,12 @@ BEGIN {
     # if the first directory in @INC is not an absolute directory, assume that
     # someone has overridden us via -I.
     if ($INC[0] !~ /^\//) {
+       undef $debbugs_dir;
+    }
+    if (defined $debbugs_dir) {
+       unshift @INC, $debbugs_dir.'/lib/';
     }
 }
-use if defined $debbugs_dir, lib => $debbugs_dir.'/lib/';
 
 use Debbugs::Config qw(:globals :text :config);
 

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 345a6496e4ee9b89deae261bacd328acd40b732b..eb8e54f7f8ee1acd21a973813614a83b1b259034 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -39,8 +39,11 @@ BEGIN {
     if ($INC[0] !~ /^\//) {
        undef $debbugs_dir;
     }
+    if (defined $debbugs_dir) {
+       unshift @INC, $debbugs_dir.'/lib/';
+    }
 }
-use if defined $debbugs_dir, lib => $debbugs_dir.'/lib/';
+
 
 binmode(STDOUT,':encoding(UTF-8)');
 use POSIX qw(strftime nice);