doc/perlnoutf.pl

   1 #!/usr/bin/perl -w
   2 # Call another Perl script, passing our caller's arguments, with
   3 # environment variables unset so perl doesn't interpret bytes as UTF-8
   4 # characters.
   5 #
   6 # Copyright 2004 Graeme Hewson <ghewson@wormhole.me.uk>
   7 #
   8 # Wireshark - Network traffic analyzer
   9 # By Gerald Combs <gerald@wireshark.org>
  10 # Copyright 1998 Gerald Combs
  11 #
  12 # This program is free software; you can redistribute it and/or
  13 # modify it under the terms of the GNU General Public License
  14 # as published by the Free Software Foundation; either version 2
  15 # of the License, or (at your option) any later version.
  16 #
  17 # This program is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU General Public License for more details.
  21 #
  22 # You should have received a copy of the GNU General Public License
  23 # along with this program; if not, write to the Free Software
  24 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  25
  26
  27 use strict;
  28
  29 delete $ENV{LANG};
  30 delete $ENV{LANGUAGE};
  31 delete $ENV{LC_ALL};
  32 delete $ENV{LC_CTYPE};
  33
  34 system("$^X -w @ARGV");