This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/common.pl can use caller to infer the name of the pragma under test.
authorNicholas Clark <nick@ccl4.org>
Thu, 1 Jul 2010 19:41:21 +0000 (20:41 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 1 Jul 2010 19:43:36 +0000 (20:43 +0100)
commita80e93c2ac4ef033b7aff53be0a697746e09f7ea
treefbc737db63b44d6899114b2b7459ebef0475179a
parent98b4ddd60241e805202ea45b0e3e203be7a46e05
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.
lib/charnames.t
lib/feature.t
lib/strict.t
lib/subs.t
lib/warnings.t
t/lib/common.pl