Upgrade to Test::Harness 2.38.

[p5sagit/p5-mst-13.2.git] / t / lib / h2ph.pht

diff --git a/t/lib/h2ph.pht b/t/lib/h2ph.pht
index 796d6a8..e03cbb9 100644 (file)
--- a/t/lib/h2ph.pht
+++ b/t/lib/h2ph.pht
@@ -1,5 +1,7 @@
 require '_h2ph_pre.ph';
 
+no warnings 'redefine';
+
 unless(defined(&SQUARE)) {
     sub SQUARE {
        local($x) = @_;
@@ -84,5 +86,6 @@ unless(defined(&_H2PH_H_)) {
     }
     eval("sub flim () { 0; }") unless defined(&flim);
     eval("sub flam () { 1; }") unless defined(&flam);
+    eval 'sub multiline () {"multilinestring";}' unless defined(&multiline);
 }
 1;