From: <bru...@us...> - 2008-02-02 18:28:12
|
Revision: 805 http://panotools.svn.sourceforge.net/panotools/?rev=805&view=rev Author: brunopostle Date: 2008-02-02 10:28:13 -0800 (Sat, 02 Feb 2008) Log Message: ----------- only report on metadata if there is a metadata object Modified Paths: -------------- trunk/Panotools-Script/bin/ptoinfo Modified: trunk/Panotools-Script/bin/ptoinfo =================================================================== --- trunk/Panotools-Script/bin/ptoinfo 2008-02-02 00:36:49 UTC (rev 804) +++ trunk/Panotools-Script/bin/ptoinfo 2008-02-02 18:28:13 UTC (rev 805) @@ -38,7 +38,10 @@ { # summarise input image print STDOUT "Image $index:\n"; - for my $item (@{$pto->Image->[$index]->Report}, @{$pto->ImageMetadata->[$index]->Report}, @{$pto->Variable->Report ($index)}) + my @items = @{$pto->Image->[$index]->Report}; + push @items, @{$pto->ImageMetadata->[$index]->Report} if defined $pto->ImageMetadata->[$index]; + push @items, @{$pto->Variable->Report ($index)}; + for my $item (@items) { print STDOUT ' '. (join ': ', @{$item}) ."\n"; } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |