diff options
Diffstat (limited to 'perlnoutf.pl')
-rwxr-xr-x | perlnoutf.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/perlnoutf.pl b/perlnoutf.pl new file mode 100755 index 0000000000..9f5580fa8c --- /dev/null +++ b/perlnoutf.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl -w + +# $Id$ + +# Call another Perl script, passing our caller's arguments, with +# environment variables unset so perl doesn't interpret bytes as UTF-8 +# characters. + +use strict; + +delete $ENV{LANG}; +delete $ENV{LANGUAGE}; +delete $ENV{LC_ALL}; +delete $ENV{LC_CTYPE}; + +system("$^X -w @ARGV"); |