X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=site_perl%2Fpkg_svc.pm;h=ee4ad629edb226d41f725da6b266be730a360d25;hp=9db0a12dac48fe11e5709d1b2371becc7804852a;hb=7613e14fd13aabb2a44bb26ca8640053f44930ea;hpb=1f2d8690193476319d61b20b78461eb1a3ff106e

diff --git a/site_perl/pkg_svc.pm b/site_perl/pkg_svc.pm
index 9db0a12da..ee4ad629e 100644
--- a/site_perl/pkg_svc.pm
+++ b/site_perl/pkg_svc.pm
@@ -74,8 +74,8 @@ returns the error, otherwise returns false.
 sub replace {
   my ( $new, $old ) = ( shift, shift );
 
-  return "Can't change pkgpart!" if $old->pkgpart ne $new->pkgpart;
-  return "Can't change svcpart!" if $old->svcpart ne $new->svcpart;
+  return "Can't change pkgpart!" if $old->pkgpart != $new->pkgpart;
+  return "Can't change svcpart!" if $old->svcpart != $new->svcpart;
 
   $new->SUPER::replace($old);
 }
@@ -112,7 +112,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: pkg_svc.pm,v 1.2 1998-12-29 11:59:51 ivan Exp $
+$Id: pkg_svc.pm,v 1.3 1999-01-18 21:58:08 ivan Exp $
 
 =head1 BUGS
 
@@ -131,7 +131,10 @@ ivan@sisd.com 97-nov-13
 pod ivan@sisd.com 98-sep-22
 
 $Log: pkg_svc.pm,v $
-Revision 1.2  1998-12-29 11:59:51  ivan
+Revision 1.3  1999-01-18 21:58:08  ivan
+esthetic: eq and ne were used in a few places instead of == and !=
+
+Revision 1.2  1998/12/29 11:59:51  ivan
 mostly properly OO, some work still to be done with svc_ stuff