Changeset 18352 for lang/perl

Timestamp:

08/28/08 06:20:13 (3 months ago)

Author:

miyagawa

Message:

fix set_prioritize

Files:

• lang/perl/TheSchwartz-Simple/trunk/eg/work-hello.pl (modified) (1 diff)

lang/perl/TheSchwartz-Simple/trunk/eg/work-hello.pl

@@ -19 +19 @@
 
 my $client = TheSchwartz->new(databases => [ { dsn => "dbi:mysql:$dbname", user => 'root' } ]);
-$client->set_prioritize;
+$client->set_prioritize(1);
 $client->can_do('MyWorker');
 $client->work_once;