summary refs log tree commit diff
path: root/pkgs/development/perl-modules/net-amazon-ec2-nova-compat.patch
blob: 5d9aef7f70d4abcdf5742913bc0b36ac0e845c7d (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
diff -ru -x '*~' Net-Amazon-EC2-0.14-orig/lib/Net/Amazon/EC2.pm Net-Amazon-EC2-0.14/lib/Net/Amazon/EC2.pm
--- Net-Amazon-EC2-0.14-orig/lib/Net/Amazon/EC2.pm	2010-02-02 02:26:58.000000000 +0100
+++ Net-Amazon-EC2-0.14/lib/Net/Amazon/EC2.pm	2011-06-16 16:11:53.861341300 +0200
@@ -1552,6 +1552,8 @@
 			$args{"InstanceId." . $count} = $instance_id;
 			$count++;
 		}
+	} else {
+		$args{"InstanceId.1"} = delete $args{InstanceId};
 	}
 	
 	my $xml = $self->_sign(Action  => 'DescribeInstances', %args);
@@ -3739,6 +3741,8 @@
 			$args{"InstanceId." . $count} = $instance_id;
 			$count++;
 		}
+	} else {
+		$args{"InstanceId.1"} = delete $args{InstanceId};
 	}
 	
 	my $xml = $self->_sign(Action  => 'TerminateInstances', %args);