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.

1 files changed, 2 insertions, 7 deletions

diff --git a/lib/feature.t b/lib/feature.t
index a60644f442..0818f37c34 100644
--- a/lib/feature.t
+++ b/lib/feature.t
@@ -1,10 +1,5 @@
 #!./perl
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-}
-
-our $pragma_name = "feature";
+chdir 't' if -d 't';
+@INC = '../lib';
 require "../t/lib/common.pl";