diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_pkg.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index f2e0005d7..44e1210fe 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1220,8 +1220,10 @@ L<FS::part_pkg>). =cut +use Carp qw(cluck); sub part_pkg { my $self = shift; + cluck "part_pkg called" if $DEBUG > 1 && ! $self->{'_pkgpart'}; #exists( $self->{'_pkgpart'} ) $self->{'_pkgpart'} ? $self->{'_pkgpart'} |