From 0cae1dfc2c38888786dea14b251558b1c6c994f2 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Fri, 7 Apr 2023 03:50:39 +0100
Subject: [PATCH] pp_addxs of "" will still reset pp_def package

---
 genpp.pl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/genpp.pl b/genpp.pl
index c91c387..eff6208 100644
--- a/genpp.pl
+++ b/genpp.pl
@@ -377,18 +377,14 @@ =head1 NAME
   my %class2func2suffix;
   if (@topfuncs) {
     pp_bless("PDL::OpenCV$last");
-    pp_addxs(<<EOF); # work around PP bug
-MODULE = ${main::PDLMOD} PACKAGE = ${main::PDLOBJ}
-EOF
+    pp_addxs(''); # work around PP historical quirk
     genpp(maybe_suffix \%class2func2suffix, @$_) for @topfuncs;
   } else {
     pp_addpm("=pod\n\nNone.\n\n=cut\n\n");
   }
   for my $c (@classes) {
     pp_bless(my $fullclass = "PDL::OpenCV::$c");
-    pp_addxs(<<EOF); # work around PP bug
-MODULE = ${main::PDLMOD} PACKAGE = ${main::PDLOBJ}
-EOF
+    pp_addxs(''); # work around PP historical quirk
     my $doc = $class2doc{$c} // '';
     $doc = text_trim doxy2pdlpod(doxyparse($doc)) if $doc;
     pp_addpm(<<EOD);