[rt #97108] support Inline 0.57 and later
authorTony Cook <tony@develop-help.com>
Wed, 16 Jul 2014 11:45:08 +0000 (21:45 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 16 Jul 2014 11:45:08 +0000 (21:45 +1000)
Inline 0.57 changed the "with" interface

Imager.pm

index 2482664..c2e4bd1 100644 (file)
--- 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";