Open $^X instead of $0 in tests to create glob filehandle

Apparently when running coverage tests using $0 doesn't work. I'm guessing
this is because $0 is a relative path (`t/union.t`) and Devel::Cover is
probably changing the current directory.

Author: autarch

lib/Test/Specio.pm

@@ -1517,5 +1517,5 @@ If you want to create a glob overloading object that returns a filehandle, do
 this:
 
   local *BAR;
-  open BAR, '<', $0 or die "Could not open $0 for the test";
+  open BAR, '<', $^X or die "Could not open $^X for the test";
   my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );

t/builtins-sanity.t

@@ -23,7 +23,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/declare-helpers.t

@@ -23,7 +23,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/dict.t

@@ -75,7 +75,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/intersection.t

@@ -38,7 +38,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/map.t

@@ -45,7 +45,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/string-sanity.t

@@ -23,7 +23,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/subs.t

@@ -28,7 +28,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/tuple.t

@@ -82,7 +82,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/union.t

@@ -38,7 +38,7 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 local *BAR;
 {
     ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $0 or die "Could not open $0 for the test";
+    open BAR, '<', $^X or die "Could not open $^X for the test";
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );