[Jifty-commit] r7293 - jifty/trunk/lib/Jifty

[Jifty commits]

Author: alexmv
Date: Fri Jul  3 17:20:27 2009
New Revision: 7293

Modified:
   jifty/trunk/lib/Jifty/Object.pm

Log:
As a performance optimization, bail early when we hit Mason code

Modified: jifty/trunk/lib/Jifty/Object.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Object.pm	(original)
+++ jifty/trunk/lib/Jifty/Object.pm	Fri Jul  3 17:20:27 2009
@@ -76,7 +76,8 @@
         my $depth = 1;
         while ( not $cu and $depth < 10 ) {
             # get the caller in array context to populate @DB::args
-            my $x = (CORE::caller( $depth++ ))[0];
+            my ($package) = CORE::caller( $depth++ );
+            last if defined $package and $package eq "HTML::Mason::Commands";
             my $caller_self = $DB::args[0];
             next unless ref($caller_self);    #skip class methods;
             next unless my $s = $caller_self->can('current_user');