pp_addxs of "" will still reset pp_def package

PDLPorters · Apr 7, 2023 · 0cae1df · 0cae1df
1 parent 094185f
commit 0cae1df
Showing 1 changed file with 2 additions and 6 deletions.
diff --git 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);