switch from deprecated perl_get_sv, minimum Perl 5.10.1

PDLPorters · Oct 7, 2024 · 9b7ba17 · 9b7ba17
1 parent a818fb8
commit 9b7ba17
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/CHANGES b/CHANGES
@@ -1,3 +1,5 @@
+- minimum Perl 5.10.1
+
 2.33 2024-09-17
 - fix ramp and rgb LUTs (and neg to be compatible) to always increase values (#16) - thanks @d-lamb
 

diff --git a/Makefile.PL b/Makefile.PL
@@ -259,6 +259,7 @@ for my $opt_dep (sort keys %min_version) {
 
 WriteMakefile(
     'NAME'	=> 'PGPLOT',
+    MIN_PERL_VERSION => '5.010001',
     'CONFIGURE_REQUIRES' => { 'ExtUtils::F77' => 1.13, 'Devel::CheckLib' => '1.14' },
     'TEST_REQUIRES' => { 'Test::More' => '0.88' },
     PREREQ_PM => { @prereq },

diff --git a/PGPLOT.xs b/PGPLOT.xs
@@ -1497,4 +1497,4 @@ BOOT:
        by other modules
    */
 
-   sv_setiv(perl_get_sv("PGPLOT::HANDLE",TRUE|GV_ADDMULTI), (IV) (void*) &myPGPLOT_handle);
+   sv_setiv(get_sv("PGPLOT::HANDLE",TRUE|GV_ADDMULTI), (IV) (void*) &myPGPLOT_handle);