[Bps-public-commit] Path-Dispatcher branch, pass-match, updated. a26160dd83700a59e4c5388e69db5ed327e39c81
Shawn Moore
sartak at bestpractical.com
Sun Oct 10 10:32:58 EDT 2010
The branch, pass-match has been updated
via a26160dd83700a59e4c5388e69db5ed327e39c81 (commit)
from 4a660e060ea38509440c6b6cdb55d71e6dd35f74 (commit)
Summary of changes:
lib/Path/Dispatcher/Dispatch.pm | 2 +-
lib/Path/Dispatcher/Match.pm | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
- Log -----------------------------------------------------------------
commit a26160dd83700a59e4c5388e69db5ed327e39c81
Author: Shawn M Moore <sartak at bestpractical.com>
Date: Sun Oct 10 10:32:45 2010 -0400
Enforce scalar context at the Match level not Dispatch
diff --git a/lib/Path/Dispatcher/Dispatch.pm b/lib/Path/Dispatcher/Dispatch.pm
index 62fa29b..54e56db 100644
--- a/lib/Path/Dispatcher/Dispatch.pm
+++ b/lib/Path/Dispatcher/Dispatch.pm
@@ -40,7 +40,7 @@ sub run {
$match->rule->trace(running => 1, match => $match)
if $ENV{PATH_DISPATCHER_TRACE};
- push @results, scalar $match->run(@args);
+ push @results, $match->run(@args);
die "Path::Dispatcher abort\n";
};
diff --git a/lib/Path/Dispatcher/Match.pm b/lib/Path/Dispatcher/Match.pm
index 49df4cd..7ade7ca 100644
--- a/lib/Path/Dispatcher/Match.pm
+++ b/lib/Path/Dispatcher/Match.pm
@@ -37,7 +37,7 @@ sub run {
my $self = shift;
local $_ = $self->path;
- return $self->rule->run($self, @_);
+ return scalar $self->rule->run($self, @_);
}
sub pos {
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list