[panotools-cvs] SF.net SVN: panotools: [805] trunk/Panotools-Script/bin/ptoinfo

[<bru...@us...>]

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.