-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This script is part of debbugs, and is released
# under the terms of the GPL version 2, or any later
# version at your option.
if ($INC[0] !~ /^\//) {
undef $debbugs_dir;
}
+ if (defined $debbugs_dir) {
+ unshift @INC, $debbugs_dir.'/lib/';
+ }
}
-use if defined $debbugs_dir, lib => $debbugs_dir;
+
binmode(STDOUT,':encoding(UTF-8)');
use POSIX qw(strftime nice);