pdlpp_postamble_int back to full compat with pdlpp_postamble

PDLPorters · Nov 22, 2024 · 08b4255 · 08b4255
1 parent a64542d
commit 08b4255
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Basic/lib/PDL/Core/Dev.pm b/Basic/lib/PDL/Core/Dev.pm
@@ -169,7 +169,7 @@ $install|
 
 sub pdlpp_postamble_int {
   my $w = whereami_any();
-  join '', map _postamble($w, 1, @$_[0..3], 1, @$_[4..$#$_]), @_;
+  join '', map _postamble($w, 1, @$_[0..3], 1, @$_[5..$#$_]), @_;
 }
 
 # This is the function to be used outside the PDL tree.

diff --git a/Libtmp/Slatec/Makefile.PL b/Libtmp/Slatec/Makefile.PL
@@ -44,7 +44,7 @@ if ($msg ne "") {
     return;
 }
 
-my @pack = (["slatec.pd", qw(Slatec PDL::Slatec)]);
+my @pack = (["slatec.pd", qw(Slatec PDL::Slatec), '', 1]);
 my @slatecfiles = map {s/\.f$//; $_} glob("slatec/*.f");
 my %hash = pdlpp_stdargs_int(@pack);