File: asp-perl1.t

package info (click to toggle)
libapache-asp-perl 2.63-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 4,120 kB
  • sloc: perl: 6,044; php: 409; sh: 62; lisp: 22; makefile: 10
file content (15 lines) | stat: -rw-r--r-- 358 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use File::Basename qw(dirname);
use Carp qw(cluck);

#$SIG{__WARN__} = \&cluck;

my $dirname = dirname($0);
if($dirname) {
    chdir($dirname) || die("can't chdir to $dirname: $!");
}		     

@ARGV = ('-b', '-f', 'asp-perl/asp.conf', 'asp-perl/ok.inc');
use lib qw(../blib/lib ../lib);
my $bindir = $ENV{ADTTMP} ? '/usr/bin' : '../';
do "$bindir/asp-perl";