[Rt-commit] r6135 - rt/branches/3.4-RELEASE/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Sat Sep 30 17:38:39 2006
New Revision: 6135

Modified:
   rt/branches/3.4-RELEASE/lib/RT/Record.pm

Log:
* there is code exists that call My::Class->_ClassAccessible

Modified: rt/branches/3.4-RELEASE/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.4-RELEASE/lib/RT/Record.pm	(original)
+++ rt/branches/3.4-RELEASE/lib/RT/Record.pm	Sat Sep 30 17:38:39 2006
@@ -748,7 +748,7 @@
 
 sub _ClassAccessible {
     my $self = shift;
-    return $_TABLE_ATTR->{ref($self)};
+    return $_TABLE_ATTR->{ ref($self) || $self };
 }
 
 =head2 _Accessible COLUMN ATTRIBUTE