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);
|
