don't rebless if we're already in the plan subclass, fixes pkg customize link

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index f9b36e2..fb08ddd 100644 (file)
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -648,6 +648,7 @@ sub _rebless {
       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;";