From 9b7ba17968a295cb3906e7ef275d49cadf0114f2 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Mon, 7 Oct 2024 01:22:43 +0000
Subject: [PATCH] switch from deprecated perl_get_sv, minimum Perl 5.10.1

---
 CHANGES     | 2 ++
 Makefile.PL | 1 +
 PGPLOT.xs   | 2 +-
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES
index 631e0c9..58b0b50 100644
--- 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
index 1f346bc..df8591b 100644
--- 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
index 036796f..eb9135e 100644
--- 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);