X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fbugreport.cgi;fp=cgi%2Fbugreport.cgi;h=8ad688f6923b501ea836557574b2a63f881c738a;hb=03cad65103808bca0f63bc182e1b7827014471fe;hp=8692146485297e70cf3bd9e83f255c16056d028e;hpb=ada2d48936ad4eebf5d62b8723993f14008751b5;p=debbugs.git

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 8692146..8ad688f 100755
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -1,8 +1,13 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl
 
 use warnings;
 use strict;
 
+# Sanitize environent for taint
+BEGIN{
+    delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
+}
+
 use POSIX qw(strftime);
 use MIME::Parser;
 use MIME::Decoder;