X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg.pm;h=3b5764200c6bb27cf29ed7cee013c88bb5a3fd75;hb=753cda550c5e2fa3053224f92d8141975390610a;hp=22c545148a5c57eefaabcdbca68dfb79cebfe60f;hpb=014e04829aea8923679070e5abbe807ddde7637e;p=freeside.git

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 22c545148..3b5764200 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -720,7 +720,7 @@ sub svc_part_pkg_link {
 }
 
 sub _part_pkg_link {
-  my( $self, $type ) = shift;
+  my( $self, $type ) = @_;
   qsearch('part_pkg_link', { 'src_pkgpart' => $self->pkgpart,
                              'link_type'   => $type,
                            }