diff options
-rw-r--r-- | FS/FS/part_pkg.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 2fba2f4..9d024b6 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -753,17 +753,12 @@ sub check_pkg_svc { foreach my $svcpart ( keys %pkg_svc ) { - warn 'checking '. $pkg_svc{$svcpart}->svcpart; - foreach my $part_svc_link ( $self->part_svc_link( 'src_svcpart' => $svcpart, 'link_type' => 'part_pkg_restrict', ) ) { - use Data::Dumper; - warn 'checking '. Dumper($part_svc_link); - return $part_svc_link->dst_svc. ' must be included with '. $part_svc_link->src_svc unless $pkg_svc{ $part_svc_link->dst_svcpart }; |