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");