| Subject: | typos in mini-smokebox.pl and SmokeBox.pm |
Distribution: POE-Component-SmokeBox-0.12
Perl: v5.8.8 built for x86_64-linux-gnu-thread-multi
OS: Linux beast 2.6.24-23-rt #1 SMP PREEMPT RT Thu Nov 27 19:40:04 UTC
2008 x86_64 GNU/Linux (ubuntu-8.04)
There are a few typoes in examples/mini-smokebox.pl and
lib/POE/Component/SmokeBox.pm that prevent PoCo::SmokeBox from running
properly.
The biggest is in SmokeBox.pm where submit() calls the wrong event name
| Subject: | POE-Component-SmokeBox-0.12.patch |
diff -urN POE-Component-SmokeBox-0.12/examples/mini-smokebox.pl POE-Component-SmokeBox-0.12-/examples/mini-smokebox.pl
--- POE-Component-SmokeBox-0.12/examples/mini-smokebox.pl 2008-09-06 14:27:44.000000000 -0400
+++ POE-Component-SmokeBox-0.12-/examples/mini-smokebox.pl 2009-02-04 14:13:13.000000000 -0500
@@ -64,7 +64,7 @@
}
sub _results {
- my $result = $_[ARG0];
+ my $results = $_[ARG0];
print $_, "\n" for map { @{ $_->{log} } } $results->{result}->results();
undef;
}
diff -urN POE-Component-SmokeBox-0.12/lib/POE/Component/SmokeBox.pm POE-Component-SmokeBox-0.12-/lib/POE/Component/SmokeBox.pm
--- POE-Component-SmokeBox-0.12/lib/POE/Component/SmokeBox.pm 2009-02-04 05:56:43.000000000 -0500
+++ POE-Component-SmokeBox-0.12-/lib/POE/Component/SmokeBox.pm 2009-02-04 14:17:06.000000000 -0500
@@ -131,7 +131,7 @@
sub submit {
my $self = shift;
- $poe_kernel->call( $self->{session_id}, '_submit', @_ );
+ $poe_kernel->call( $self->{session_id}, 'submit', @_ );
}
sub _submit {
@@ -208,9 +208,9 @@
POE::Session->create(
package_states => [
- 'main' => [ qw(_start _stop _results _recent) ],
+ 'main' => [ qw(_start _stop _results) ],
],
- heap => { perl => $perl, pending => { @ARGV },
+ heap => { perl => $perl, pending => [ @ARGV ] },
);
$poe_kernel->run();
@@ -235,7 +235,7 @@
}
sub _results {
- my $result = $_[ARG0];
+ my $results = $_[ARG0];
print $_, "\n" for map { @{ $_->{log} } } $results->{result}->results();
undef;
}