[Jifty-commit] r3935 - jifty/trunk/lib/Jifty/View

[jifty-commit at lists.jifty.org]

Author: audreyt
Date: Wed Aug 22 11:06:44 2007
New Revision: 3935

Modified:
   jifty/trunk/lib/Jifty/View/Declare.pm

Log:
* Jifty::View::Declare - Work around Perl 5.9.5 bug by avoid punning
  the constant name BaseClass with the subclass name ::BaseClass.

Modified: jifty/trunk/lib/Jifty/View/Declare.pm
==============================================================================
--- jifty/trunk/lib/Jifty/View/Declare.pm	(original)
+++ jifty/trunk/lib/Jifty/View/Declare.pm	Wed Aug 22 11:06:44 2007
@@ -3,7 +3,7 @@
 
 use strict;
 use warnings;
-use constant BaseClass => 'Jifty::View::Declare::BaseClass';
+use constant BaseClassName => 'Jifty::View::Declare::BaseClass';
 
 =head1 NAME
 
@@ -39,11 +39,11 @@
     ($import and $import eq '-base') or return;
     no strict 'refs';
     my $pkg = caller;
-    Jifty::Util->require(BaseClass);
-    push @{ $pkg . '::ISA' }, BaseClass;
+    Jifty::Util->require(BaseClassName);
+    push @{ $pkg . '::ISA' }, BaseClassName;
 
-    @_ = BaseClass;
-    goto &{BaseClass()->can('import')};
+    @_ = BaseClassName;
+    goto &{BaseClassName()->can('import')};
 }
 
 =head1 SEE ALSO