diff options
| author | ivan <ivan> | 2009-03-30 00:32:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-03-30 00:32:03 +0000 |
| commit | 3b5ccffae54e59c012eb1ebb348207510ca1d5ce (patch) | |
| tree | 751619418bed9ef4d4f6d241bdfc02164c3022bb /FS | |
| parent | 75989a32bd20f0ab3d38d2cd2c05795ea9b7590d (diff) | |
part_pkg caching should speedup display of lots of packages, RT#5083
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'} |