From 88ace6cd2a63c19eca8a45d700988495bcde5123 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 8 Oct 2012 21:08:06 +1100
Subject: [PATCH] [rt #79990] don't copy setsamples() data parameter

since it may be a large scalar.
---
 Imager.pm        | 31 ++++++++++++++++++++++++-------
 t/t01introvert.t |  7 ++++++-
 2 files changed, 30 insertions(+), 8 deletions(-)

diff --git a/Imager.pm b/Imager.pm
index 1d5a048d..79a9e4b0 100644
--- a/Imager.pm
+++ b/Imager.pm
@@ -3417,18 +3417,35 @@ sub getsamples {
 
 sub setsamples {
   my $self = shift;
-  my %opts = ( x => 0, offset => 0, @_ );
 
   unless ($self->{IMG}) {
     $self->_set_error('setsamples: empty input image');
     return;
   }
 
-  my $data = $opts{data};
-  unless(defined $data) {
+  my %opts = ( x => 0, offset => 0 );
+  my $data_index;
+  # avoid duplicating the data parameter, it may be a large scalar
+  my $i = 0;
+  while ($i < @_ -1) {
+    if ($_[$i] eq 'data') {
+      $data_index = $i+1;
+    }
+    else {
+      $opts{$_[$i]} = $_[$i+1];
+    }
+
+    $i += 2;
+  }
+
+  unless(defined $data_index) {
     $self->_set_error('setsamples: data parameter missing');
     return;
   }
+  unless (defined $_[$data_index]) {
+    $self->_set_error('setsamples: data parameter not defined');
+    return;
+  }
 
   my $type = $opts{type};
   defined $type or $type = '8bit';
@@ -3439,22 +3456,22 @@ sub setsamples {
   my $count;
   if ($type eq '8bit') {
     $count = i_psamp($self->{IMG}, $opts{x}, $opts{y}, $opts{channels},
-		     $data, $opts{offset}, $width);
+		     $_[$data_index], $opts{offset}, $width);
   }
   elsif ($type eq 'float') {
     $count = i_psampf($self->{IMG}, $opts{x}, $opts{y}, $opts{channels},
-		      $data, $opts{offset}, $width);
+		      $_[$data_index], $opts{offset}, $width);
   }
   elsif ($type =~ /^([0-9]+)bit$/) {
     my $bits = $1;
 
-    unless (ref $data) {
+    unless (ref $_[$data_index]) {
       $self->_set_error("setsamples: data must be an array ref for type not 8bit or float");
       return;
     }
 
     $count = i_psamp_bits($self->{IMG}, $opts{x}, $opts{y}, $bits,
-			  $opts{channels}, $data, $opts{offset}, 
+			  $opts{channels}, $_[$data_index], $opts{offset}, 
 			  $width);
   }
   else {
diff --git a/t/t01introvert.t b/t/t01introvert.t
index 542791c5..9f682ce1 100644
--- a/t/t01introvert.t
+++ b/t/t01introvert.t
@@ -3,7 +3,7 @@
 # to make sure we get expected values
 
 use strict;
-use Test::More tests => 431;
+use Test::More tests => 433;
 
 BEGIN { use_ok(Imager => qw(:handy :all)) }
 
@@ -848,6 +848,11 @@ my $psamp_outside_error = "Image position outside of image";
   is($im->errstr, "setsamples: data parameter missing",
      "check error message");
 
+  is($im->setsamples(y => 5, data => undef),
+     undef, "setsamples with undef data");
+  is($im->errstr, "setsamples: data parameter not defined",
+     "check error message");
+
   my $imempty = Imager->new;
   is($imempty->setsamples(y => 0, data => [ (0) x 3 ]), undef,
      "setsamples to empty image");
-- 
2.39.5