# 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);
}
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)');