Changeset 36427 for lang/perl/Parallel-Prefork

Timestamp:

01/13/10 19:11:28 (3 years ago)

Author:

kazuho

Message:

fix compile error on 5.10.0

Files:

• lang/perl/Parallel-Prefork/trunk/lib/Parallel/Prefork/SpareWorkers.pm (modified) (2 diffs)

lang/perl/Parallel-Prefork/trunk/lib/Parallel/Prefork/SpareWorkers.pm

@@ -1 +1 @@
 package Parallel::Prefork::SpareWorkers;
 
+use strict;
+use warnings;
+
+use Exporter qw(import);
+
 use List::MoreUtils qw(uniq);
+
+use base qw/Parallel::Prefork/;
 
 use constant STATUS_NEXIST => '.';
@@ -11 +18 @@
 our @EXPORT_OK = uniq sort map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{all} = \@EXPORT_OK;
-
-use base qw/Parallel::Prefork Exporter/;
 
 __PACKAGE__->mk_accessors(qw/min_spare_workers max_spare_workers scoreboard/);