summary refs log tree commit diff
path: root/pkgs/development/perl-modules/net-amazon-ec2-nova-compat.patch
blob: c08b3579fc3beec54c3ebc801bd8f36113b67280 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
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 14:18:19.874176129 +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);