From: Tony Cook <tony@develop-help.com>
Date: Wed, 16 Jul 2014 11:45:08 +0000 (+1000)
Subject: [rt #97108] support Inline 0.57 and later
X-Git-Tag: v0.99_02~4
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/35daeeebcd11164f4e600a9e4f8372d72525c3a1

[rt #97108] support Inline 0.57 and later

Inline 0.57 changed the "with" interface
---

diff --git a/Imager.pm b/Imager.pm
index 24826644..c2e4bd15 100644
--- a/Imager.pm
+++ b/Imager.pm
@@ -4196,7 +4196,8 @@ sub parseiptc {
 }
 
 sub Inline {
-  my ($lang) = @_;
+  # Inline added a new argument at the beginning
+  my $lang = $_[-1];
 
   $lang eq 'C'
     or die "Only C language supported";