From Michael Mann via https://bugs.wireshark.org/bugzilla/show_bug.cgi?id=6377, with...
[obnox/wireshark/wip.git] / doc / perlnoutf.pl
1 #!/usr/bin/perl -w
2
3 # $Id$
4
5 # Call another Perl script, passing our caller's arguments, with
6 # environment variables unset so perl doesn't interpret bytes as UTF-8
7 # characters.
8
9 use strict;
10
11 delete $ENV{LANG};
12 delete $ENV{LANGUAGE};
13 delete $ENV{LC_ALL};
14 delete $ENV{LC_CTYPE};
15
16 system("$^X -w @ARGV");