From c91f661cc54e358485dc7396a166dc08c6867a38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <ilmari@ilmari.org>
Date: Fri, 20 Mar 2020 22:37:06 +0000
Subject: Remove use of dVAR in core

It only does anything under PERL_GLOBAL_STRUCT, which is gone.
Keep the dNOOP defintion for CPAN back-compat
---
 haiku/Haiku/Haiku.pm | 2 +-
 haiku/Haiku/Haiku.xs | 4 ----
 2 files changed, 1 insertion(+), 5 deletions(-)

(limited to 'haiku')

diff --git a/haiku/Haiku/Haiku.pm b/haiku/Haiku/Haiku.pm
index 205df732a2..60f44efd47 100644
--- a/haiku/Haiku/Haiku.pm
+++ b/haiku/Haiku/Haiku.pm
@@ -8,7 +8,7 @@ BEGIN {
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.35';
+    $VERSION = '0.36';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 
diff --git a/haiku/Haiku/Haiku.xs b/haiku/Haiku/Haiku.xs
index c544e22bc0..254399abd5 100644
--- a/haiku/Haiku/Haiku.xs
+++ b/haiku/Haiku/Haiku.xs
@@ -23,7 +23,6 @@ static void
 haiku_do_debug_printf(pTHX_ SV *sv,
     void (*printfFunc)(const char*,...))
 {
-    dVAR;
 
     if (!sv)
 	return;
@@ -55,7 +54,6 @@ haiku_do_debug_printf(pTHX_ SV *sv,
 
 XS(haiku_debug_printf)
 {
-    dVAR;
     dXSARGS;
     dORIGMARK;
     SV *sv;
@@ -78,7 +76,6 @@ XS(haiku_debug_printf)
 
 XS(haiku_ktrace_printf)
 {
-    dVAR;
     dXSARGS;
     dORIGMARK;
     SV *sv;
@@ -101,7 +98,6 @@ XS(haiku_ktrace_printf)
 
 XS(haiku_debugger)
 {
-    dVAR;
     dXSARGS;
     dORIGMARK;
     SV *sv;
-- 
cgit v1.2.1