]> git.donarmstrong.com Git - debbugs.git/blobdiff - cgi/bugreport.cgi
for CGI running out of git, just unshift @INC instead of use lib
[debbugs.git] / cgi / bugreport.cgi
index ad35fd509d7d3550d134312112fc18da03c322ca..d153e086280ca1f7bafb045e8550438855bb0b70 100755 (executable)
@@ -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;
 
 use Debbugs::Config qw(:globals :text :config);
 
@@ -66,7 +69,7 @@ if (defined $config{database}) {
 }
 
 use CGI::Simple;
-my $q = new CGI::Simple;
+my $q = CGI::Simple->new();
 # STDOUT should be using the utf8 io layer
 binmode(STDOUT,':raw:encoding(UTF-8)');