File: asp-perl1.t

package info (click to toggle)
libapache-asp-perl 2.62-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 4,108 kB
  • ctags: 830
  • sloc: perl: 6,033; php: 417; sh: 65; lisp: 22; makefile: 10
file content (14 lines) | stat: -rw-r--r-- 305 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

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);
do "../asp-perl";