diff options
author | guy <guy@f5534014-38df-0310-8fa8-9805f1628bb7> | 2004-10-17 23:03:11 +0000 |
---|---|---|
committer | guy <guy@f5534014-38df-0310-8fa8-9805f1628bb7> | 2004-10-17 23:03:11 +0000 |
commit | 0ae7408055e77e4f0a887f4774ff73c6d434b359 (patch) | |
tree | 0348f0dc3fa4ef3169ed2d77e35acd0558d92acf /perlnoutf.pl | |
parent | 8a98529070ca54153138b54ad324f185bd8dc3b5 (diff) |
From Graeme Hewson: make AUTHORS-SHORT not include formatting codes,
with AUTHORS-SHORT-FORMAT containing the formatting codes.
git-svn-id: http://anonsvn.wireshark.org/wireshark/trunk@12334 f5534014-38df-0310-8fa8-9805f1628bb7
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"); |