perl/lib/subs.t
Nicholas Clark a80e93c2ac t/lib/common.pl can use caller to infer the name of the pragma under test.
This avoids needing to use a variable in package main to pass in information.
Also, remove an unnecessary $ENV{PERL5LIB} assignment cargo-culted into most
users of t/lib/common,pl, and remove the BEGIN block as the code it contained
doesn't need to run at BEGIN time.
2010-07-01 20:43:36 +01:00

7 lines
79 B
Perl

#!./perl
chdir 't' if -d 't';
@INC = '../lib';
require "../t/lib/common.pl";