[Cpan-forum-commit] rev 350 - in trunk: . lib/CPAN

[svn at pti.co.il]

Author: gabor
Date: 2007-08-14 11:36:30 +0300 (Tue, 14 Aug 2007)
New Revision: 350

Modified:
   trunk/
   trunk/lib/CPAN/Forum.pm
Log:
check parent only if it exists, eliminate warning



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4436
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4437
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2007-08-14 08:36:18 UTC (rev 349)
+++ trunk/lib/CPAN/Forum.pm	2007-08-14 08:36:30 UTC (rev 350)
@@ -1355,7 +1355,7 @@
     foreach my $p (@$posts) {
         $p->{responses} = [];
         foreach my $response (@$posts) {
-            if ($response->{parent} eq $p->{id}) {
+            if ($response->{parent} and $response->{parent} eq $p->{id}) {
                 push @{ $p->{responses} }, {id => $response->{id} };
             }
         }