freeside/FS/FS part_pkg.pm,1.40,1.41

[Ivan Kohler]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv1586

Modified Files:
	part_pkg.pm 
Log Message:
don't rebless if we're already in the plan subclass, fixes pkg customize link

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- part_pkg.pm	2 Jun 2005 09:29:53 -0000	1.40
+++ part_pkg.pm	9 Jun 2005 09:15:34 -0000	1.41
@@ -648,6 +648,7 @@
       if $DEBUG;
     return $self;
   }
+  return $self if ref($self) =~ /::$plan$/; #already blessed into plan subclass
   my $class = ref($self). "::$plan";
   warn "reblessing $self into $class" if $DEBUG;
   eval "use $class;";