--- deliantra/server/ext/reseller.ext	2007/01/13 23:06:13	1.4
+++ deliantra/server/ext/reseller.ext	2007/01/24 19:39:14	1.5
@@ -27,29 +27,28 @@
          $who->map->path, $who->name, $action, $info;
 }
 
+sub find_rec;
+
 sub find_rec {
    my ($ob, $cb) = @_;
 
-   my @unpaid;
+   my @found;
    for my $i ($ob->inv) {
-      push @unpaid, $i if $cb->($i);
-
-      push @unpaid, find_unpaid ($i, $cb)
-         if $i->inv;
+      push @found, $i if $cb->($i);
+      push @found, find_rec $i, $cb if $i->inv;
    }
-   return @unpaid;
+
+   return @found;
 }
 
 sub find_unpaid {
    my ($ob) = @_;
-   my @r = find_rec ($ob, sub { $_[0]->flag (cf::FLAG_UNPAID) });
-   return @r;
+   find_rec $ob, sub { $_[0]->flag (cf::FLAG_UNPAID) };
 }
 
 sub find_traded {
    my ($ob) = @_;
-   my @r = find_rec ($ob, sub { $_[0]->get_ob_key_value ('ext_reseller_seller') ne '' });
-   return @r;
+   find_rec $ob, sub { $_[0]->get_ob_key_value ('ext_reseller_seller') ne '' };
 }
 
 cf::register_script_function "reseller::list_sells" => sub {