change all file offsets from long to gint64 so we can - theoretically - handle files...
[obnox/wireshark/wip.git] / 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");