make-authors-short.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl -w

# $Id$

use strict;

# Unset environment variables so perl doesn't
# interpret bytes as UTF-8 characters

delete $ENV{LANG};
delete $ENV{LANGUAGE};
delete $ENV{LC_ALL};
delete $ENV{LC_CTYPE};

# Call make-authors-short2.pl in same directory, using same interpreter

(my $prog2 = $0) =~ s/\.pl$/2.pl/;
system($^X, "$prog2", @ARGV);