Use __FILE__ instead of $^X in test

For some reason, opening `$^X` failed for someone. See GH #25.

Author: autarch

Changes

@@ -1,5 +1,8 @@
 {{$NEXT}}
 
+- Fixed a test failure when trying to open $^X on some platforms.
+
+
 0.52     2025-08-09
 
 - Really made it possible to force Specio to use only pure Perl dependencies. The changes in 0.51

lib/Test/Specio.pm

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

t/builtins-sanity.t

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

t/declare-helpers.t

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

t/dict.t

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

t/intersection.t

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

t/map.t

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

t/string-sanity.t

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

t/subs.t

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

t/tuple.t

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