X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/89eb5450df838ee8565c99567ce367f194dbe60f..e3faa678eb30e1e08116ca1bd086624974e5e5aa:/t/op/index.t

diff --git a/t/op/index.t b/t/op/index.t
index b384bef..38da96c 100755
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -9,6 +9,10 @@ BEGIN {
 use strict;
 plan( tests => 69 );
 
+run_tests() unless caller;
+
+sub run_tests {
+
 my $foo = 'Now is the time for all good men to come to the aid of their country.';
 
 my $first = substr($foo,0,index($foo,'the'));
@@ -155,3 +159,5 @@ SKIP: {
     local ${^UTF8CACHE} = -1;
     is(index($t, 'xyz'), 4, "0xfffffffd and utf8cache");
 }
+
+}