do subname() is deprecated, so update this hunk of test dating from perl 1.

[p5sagit/p5-mst-13.2.git] / t / re / pat_thr.t

diff --git a/t/re/pat_thr.t b/t/re/pat_thr.t
index 3228b33..159be92 100644 (file)
--- a/t/re/pat_thr.t
+++ b/t/re/pat_thr.t
@@ -4,4 +4,4 @@ chdir 't' if -d 't';
 @INC = ('../lib', '.');
 
 require 'thread_it.pl';
-thread_it(qw(op pat.t));
+thread_it(qw(re pat.t));