r52037 - in /trunk/libnet-amazon-ec2-perl: debian/changelog lib/Net/Amazon/._EC2.pm lib/Net/Amazon/EC2.pm lib/Net/Amazon/EC2/Attachment.pm lib/Net/Amazon/EC2/BlockDeviceMapping.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Feb 2 16:41:54 UTC 2010
Author: jawnsy-guest
Date: Tue Feb 2 16:41:34 2010
New Revision: 52037
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52037
Log:
New upstream release
Added:
trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/._EC2.pm
- copied unchanged from r52030, branches/upstream/libnet-amazon-ec2-perl/current/lib/Net/Amazon/._EC2.pm
Modified:
trunk/libnet-amazon-ec2-perl/debian/changelog
trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2.pm
trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/Attachment.pm
trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/BlockDeviceMapping.pm
Modified: trunk/libnet-amazon-ec2-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-ec2-perl/debian/changelog?rev=52037&op=diff
==============================================================================
--- trunk/libnet-amazon-ec2-perl/debian/changelog (original)
+++ trunk/libnet-amazon-ec2-perl/debian/changelog Tue Feb 2 16:41:34 2010
@@ -1,3 +1,9 @@
+libnet-amazon-ec2-perl (0.14-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Tue, 02 Feb 2010 11:13:04 -0500
+
libnet-amazon-ec2-perl (0.13-1) unstable; urgency=low
* New upstream release
Modified: trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2.pm?rev=52037&op=diff
==============================================================================
--- trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2.pm (original)
+++ trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2.pm Tue Feb 2 16:41:34 2010
@@ -57,7 +57,7 @@
use Net::Amazon::EC2::EbsInstanceBlockDeviceMapping;
use Net::Amazon::EC2::EbsBlockDevice;
-$VERSION = '0.13';
+$VERSION = '0.14';
=head1 NAME
@@ -66,8 +66,8 @@
=head1 VERSION
-This document describes version 0.13 of Net::Amazon::EC2, released
-January 13th, 2010. This module is coded against the Query API version of the '2009-11-30'
+This document describes version 0.14 of Net::Amazon::EC2, released
+February 1st, 2010. This module is coded against the Query API version of the '2009-11-30'
version of the EC2 API last updated December 8th, 2009.
=head1 SYNOPSIS
@@ -2277,6 +2277,10 @@
$snap->{description} = undef;
}
+ unless ( grep { defined && length } $snap->{progress} and ref $snap->{progress} ne 'HASH') {
+ $snap->{progress} = undef;
+ }
+
my $snapshot = Net::Amazon::EC2::Snapshot->new(
snapshot_id => $snap->{snapshotId},
status => $snap->{status},
@@ -2969,26 +2973,26 @@
my %args = validate( @_, {
ImageLocation => { type => SCALAR, optional => 1 },
Name => { type => SCALAR },
- description => { type => SCALAR, optional => 1 },
- architecture => { type => SCALAR, optional => 1 },
- kernelId => { type => SCALAR, optional => 1 },
- ramdiskId => { type => SCALAR, optional => 1 },
- rootDeviceName => { type => SCALAR, optional => 1 },
- blockDeviceMapping => { type => ARRAYREF, optional => 1 },
+ Description => { type => SCALAR, optional => 1 },
+ Architecture => { type => SCALAR, optional => 1 },
+ KernelId => { type => SCALAR, optional => 1 },
+ RamdiskId => { type => SCALAR, optional => 1 },
+ RootDeviceName => { type => SCALAR, optional => 1 },
+ BlockDeviceMapping => { type => ARRAYREF, optional => 1 },
});
# If we have a array ref of block devices, we need to split them up
- if (ref ($args{blockDeviceMapping}) eq 'ARRAY') {
- my $block_devices = delete $args{blockDeviceMapping};
+ if (ref ($args{BlockDeviceMapping}) eq 'ARRAY') {
+ my $block_devices = delete $args{BlockDeviceMapping};
my $count = 1;
foreach my $block_device (@{$block_devices}) {
- $args{"BlockDeviceMapping." . $count . ".DeviceName"} = $block_device->{deviceName};
- $args{"BlockDeviceMapping." . $count . ".VirtualName"} = $block_device->{virtualName};
- $args{"BlockDeviceMapping." . $count . ".NoDevice"} = $block_device->{noDevice};
- $args{"BlockDeviceMapping." . $count . ".Ebs.SnapshotId"} = $block_device->{ebs}{snapshotId};
- $args{"BlockDeviceMapping." . $count . ".Ebs.VolumeSize"} = $block_device->{ebs}{volumeSize};
- $args{"BlockDeviceMapping." . $count . ".Ebs.DeleteOnTermination"} = $block_device->{ebs}{deleteOnTermination};
+ $args{"BlockDeviceMapping." . $count . ".DeviceName"} = $block_device->{deviceName} if $block_device->{deviceName};
+ $args{"BlockDeviceMapping." . $count . ".VirtualName"} = $block_device->{virtualName} if $block_device->{virtualName};
+ $args{"BlockDeviceMapping." . $count . ".NoDevice"} = $block_device->{noDevice} if $block_device->{noDevice};
+ $args{"BlockDeviceMapping." . $count . ".Ebs.SnapshotId"} = $block_device->{ebs}{snapshotId} if $block_device->{ebs}{snapshotId};
+ $args{"BlockDeviceMapping." . $count . ".Ebs.VolumeSize"} = $block_device->{ebs}{volumeSize} if $block_device->{ebs}{volumeSize};
+ $args{"BlockDeviceMapping." . $count . ".Ebs.DeleteOnTermination"} = $block_device->{ebs}{deleteOnTermination} if $block_device->{ebs}{deleteOnTermination};
$count++;
}
}
@@ -3834,7 +3838,7 @@
Set AWS_ACCESS_KEY_ID and SECRET_ACCESS_KEY environment variables to run the live tests.
Note: because the live tests start an instance (and kill it) in both the tests and backwards compat tests there will be 2 hours of
-machine instance usage charges (since there are 2 instances started) which as of January 13th, 2010 costs a total of $0.17 USD
+machine instance usage charges (since there are 2 instances started) which as of February 1st, 2010 costs a total of $0.17 USD
Important note about the windows-only methods. These have not been well tested as I do not run windows-based instances, so exercise
caution in using these.
Modified: trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/Attachment.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/Attachment.pm?rev=52037&op=diff
==============================================================================
--- trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/Attachment.pm (original)
+++ trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/Attachment.pm Tue Feb 2 16:41:34 2010
@@ -17,7 +17,7 @@
The ID of the volume.
-=item instance_id (required)
+=item instance_id (optional)
The ID of the instance which this volume was attached to.
@@ -42,11 +42,11 @@
=cut
has 'volume_id' => ( is => 'ro', isa => 'Str', required => 1 );
-has 'instance_id' => ( is => 'ro', isa => 'Str', required => 1 );
+has 'instance_id' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
has 'device' => ( is => 'ro', isa => 'Str', required => 1 );
has 'status' => ( is => 'ro', isa => 'Str', required => 1 );
has 'attach_time' => ( is => 'ro', isa => 'Str', required => 1 );
-has 'delete_on_termination' => ( is => 'ro', isa => 'Str', required => 1 );
+has 'delete_on_termination' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
__PACKAGE__->meta->make_immutable();
Modified: trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/BlockDeviceMapping.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/BlockDeviceMapping.pm?rev=52037&op=diff
==============================================================================
--- trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/BlockDeviceMapping.pm (original)
+++ trunk/libnet-amazon-ec2-perl/lib/Net/Amazon/EC2/BlockDeviceMapping.pm Tue Feb 2 16:41:34 2010
@@ -35,7 +35,7 @@
=cut
has 'device_name' => ( is => 'ro', isa => 'Str', required => 1 );
-has 'ebs' => ( is => 'ro', isa => 'Maybe[Net::Amazon::EC2::EbsBlockDevice]', required => 0 );
+has 'ebs' => ( is => 'ro', isa => 'Maybe[Net::Amazon::EC2::EbsBlockDevice]|Maybe[Net::Amazon::EC2::EbsInstanceBlockDeviceMapping]', required => 0 );
has 'virtual_name' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
has 'no_device' => ( is => 'ro', isa => 'Maybe[Int]', required => 0 );
More information about the Pkg-perl-cvs-commits
mailing list