[rt #97108] support Inline 0.57 and later

Inline 0.57 changed the "with" interface

diff --git a/Imager.pm b/Imager.pm
index 24826644e1d46061d189cf74d5042655c8e0d7c3..c2e4bd1560b56d6e9bebd6ac7963db419f37906c 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";