diff options
author | Guy Harris <guy@alum.mit.edu> | 2004-10-17 23:03:11 +0000 |
---|---|---|
committer | Guy Harris <guy@alum.mit.edu> | 2004-10-17 23:03:11 +0000 |
commit | 7e1521119f792d256689320289b7926ac32b42c1 (patch) | |
tree | 0348f0dc3fa4ef3169ed2d77e35acd0558d92acf /perlnoutf.pl | |
parent | 94a7c806390c7fc25b020b8acf6879ac47cbc4ae (diff) |
From Graeme Hewson: make AUTHORS-SHORT not include formatting codes,
with AUTHORS-SHORT-FORMAT containing the formatting codes.
svn path=/trunk/; revision=12334
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"); |