[svn:p5ee] r13824 - p5ee/trunk/App-Context/lib/App
[email protected] Fri, 12 Feb 2010 09:39:11 -0800 (PST)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
Author: spadkins
Date: Fri Feb 12 09:39:11 2010
New Revision: 13824
Modified:
p5ee/trunk/App-Context/lib/App/Context.pm
Log:
no event entry if no events (app_profile_log)
Modified: p5ee/trunk/App-Context/lib/App/Context.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context.pm (original)
+++ p5ee/trunk/App-Context/lib/App/Context.pm Fri Feb 12 09:39:11 2010
@@ -2924,7 +2924,7 @@
my $username = $self->user();
my $events = $self->{events};
my $events_str = "";
- if ($events) {
+ if ($events && $#$events > -1) {
$events_str .= ($#$events + 1);
foreach my $event (@$events) {
$events_str .= ":$event->[1].$event->[2]";