1 files changed, 4 insertions, 0 deletions
diff --git a/t/re/ReTest.pl b/t/re/ReTest.pl
index b4338a6e1a..2d77a1c8fb 100644
--- a/t/re/ReTest.pl
+++ b/t/re/ReTest.pl
@@ -154,6 +154,10 @@ sub isneq ($$;$) {
 *is = \&iseq;
 *isnt = \&isneq;
 
+sub diag {
+    print STDERR "# $_[0]\n";
+}
+
 sub like ($$$) {
     my (undef, $expected, $name) = @_;
     my ($pass, $error);