From 509dc1d30d2083164bf434e52348065b03fa8787 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 7 Mar 2021 08:29:06 -0800
Subject: [PATCH] for CGI running out of git, just unshift @INC instead of use
 lib

---
 cgi/bugreport.cgi | 5 ++++-
 cgi/pkgreport.cgi | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index d7881a0..d153e08 100755
--- 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 345a649..eb8e54f 100755
--- 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);
-- 
2.39.2