X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fgbtosvg.pl;fp=common%2Fscripts%2Fgbtosvg.pl;h=4f53b380a87f4da45f79d8fd1467f169a94ed3eb;hp=e9fa73f4136e8545ff941d98d0a6a146f70f9aef;hb=ae3a572980f015a1266cbb3c0c7fe45f696cd8db;hpb=7528457cfe27fb20eb753d0829368d571b13f20a diff --git a/common/scripts/gbtosvg.pl b/common/scripts/gbtosvg.pl index e9fa73f..4f53b38 100755 --- a/common/scripts/gbtosvg.pl +++ b/common/scripts/gbtosvg.pl @@ -1,8 +1,9 @@ -#!/usr/bin/env perl -w +#!/usr/bin/env perl # # gbtosvg.pl use strict; +use warnings; delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # clean house for taint mode