nexmon – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 # This program is free software; you can redistribute it and/or
13 # modify it under the terms of the GNU General Public License
14 # as published by the Free Software Foundation; either version 2
15 # of the License, or (at your option) any later version.
16 #
17 # This program is distributed in the hope that it will be useful,
18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 # GNU General Public License for more details.
21 #
22 # You should have received a copy of the GNU General Public License
23 # along with this program; if not, write to the Free Software
24 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25  
26  
27 use strict;
28  
29 delete $ENV{LANG};
30 delete $ENV{LANGUAGE};
31 delete $ENV{LC_ALL};
32 delete $ENV{LC_CTYPE};
33  
34 system("$^X -w @ARGV");