summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/pler
blob: 01002aa034bd21a22b6c7c86859d15335d065685 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl

use 5.00503;
use strict;

# On some platforms (mostly Windows), we get errors because
# of Term::Cap issues. To avoid this, set TERM=dumb if the
# user does not have a TERM value already.
# This doesn't remove all possible errors, just the most
# annoying and common ones.
BEGIN {
	$ENV{TERM} ||= 'dumb';
}

use vars qw{$VERSION};
BEGIN {
	$VERSION = '1.05';
}

use pler ();

unless ( $VERSION eq $pler::VERSION ) {
	die "Error: Version mismatch (launch script $VERSION using module $pler::VERSION)";
}
pler::main(@ARGV);

exit(0);