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 # SPDX-License-Identifier: GPL-2.0-or-later
  13 #
  14
  15 use strict;
  16
  17 delete $ENV{LANG};
  18 delete $ENV{LANGUAGE};
  19 delete $ENV{LC_ALL};
  20 delete $ENV{LC_CTYPE};
  21
  22 system("$^X -w @ARGV");