[Cpan-forum-commit] rev 306 - in trunk: . lib/CPAN/Forum/RM

[svn at pti.co.il]

Author: gabor
Date: 2007-07-25 17:47:16 +0300 (Wed, 25 Jul 2007)
New Revision: 306

Modified:
   trunk/
   trunk/lib/CPAN/Forum/RM/Subscriptions.pm
Log:
return reference instaed of array



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

Modified: trunk/lib/CPAN/Forum/RM/Subscriptions.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Subscriptions.pm	2007-07-25 14:46:49 UTC (rev 305)
+++ trunk/lib/CPAN/Forum/RM/Subscriptions.pm	2007-07-25 14:47:16 UTC (rev 306)
@@ -47,12 +47,12 @@
     $t->param(title    => "Information about $username");
 
     my @params = @{$self->param("path_parameters")};
-    my ($gids, @subscriptions) = 
+    my ($gids, $subscriptions) = 
             (@params == 2 and $params[0] eq "dist")
             ?           $self->_get_module_subscription($user, $params[1])
             :           $self->_get_all_subscriptions($user);
 
-    $t->param(subscriptions => \@subscriptions);
+    $t->param(subscriptions => $subscriptions);
     $t->param(gids => $gids);
 
     $t->output;
@@ -96,7 +96,7 @@
             followups => $s->followups,
         };
     }
-    return ($gids, @subscriptions);
+    return ($gids, \@subscriptions);
 }
 
 
@@ -128,7 +128,7 @@
             followups => 0,
         };
     }
-    return ($gids, @subscriptions);
+    return ($gids, \@subscriptions);
 }