tjh.dev
1diff -ru -x '*~' Net-Amazon-EC2-0.14-orig/lib/Net/Amazon/EC2.pm Net-Amazon-EC2-0.14/lib/Net/Amazon/EC2.pm
2--- Net-Amazon-EC2-0.14-orig/lib/Net/Amazon/EC2.pm 2010-02-02 02:26:58.000000000 +0100
3+++ Net-Amazon-EC2-0.14/lib/Net/Amazon/EC2.pm 2011-06-16 16:11:53.861341300 +0200
4@@ -1552,6 +1552,8 @@
5 $args{"InstanceId." . $count} = $instance_id;
6 $count++;
7 }
8+ } else {
9+ $args{"InstanceId.1"} = delete $args{InstanceId};
10 }
11
12 my $xml = $self->_sign(Action => 'DescribeInstances', %args);
13@@ -3739,6 +3741,8 @@
14 $args{"InstanceId." . $count} = $instance_id;
15 $count++;
16 }
17+ } else {
18+ $args{"InstanceId.1"} = delete $args{InstanceId};
19 }
20
21 my $xml = $self->_sign(Action => 'TerminateInstances', %args);