http://www.sisd.com/freeside/list-archive/msg01906.html

2 files changed, 8 insertions, 6 deletions

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 0379f7f71..00ddc828e 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -191,15 +191,17 @@ but until then, here's an example:
 
   use Tie::RefHash;
   tie %hash, 'Tie::RefHash'; #this part is important
-  %hash = {
+  %hash = (
     $cust_pkg => [ $svc_acct ],
-  };
+    ...
+  );
   $cust_main->insert( \%hash );
 
 =cut
 
 sub insert {
   my $self = shift;
+  my @param = @_;
 
   local $SIG{HUP} = 'IGNORE';
   local $SIG{INT} = 'IGNORE';
@@ -239,8 +241,8 @@ sub insert {
     return $error;
   }
 
-  if ( @_ ) {
-    my $cust_pkgs = shift;
+  if ( @param ) {
+    my $cust_pkgs = shift @param;
     foreach my $cust_pkg ( keys %$cust_pkgs ) {
       $cust_pkg->custnum( $self->custnum );
       $error = $cust_pkg->insert;
@@ -1117,7 +1119,7 @@ sub check_invoicing_list {
 
 =head1 VERSION
 
-$Id: cust_main.pm,v 1.12 2001-04-23 07:12:44 ivan Exp $
+$Id: cust_main.pm,v 1.13 2001-05-07 02:07:38 ivan Exp $
 
 =head1 BUGS
 
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server
index 8fbc819ad..03defd6f9 100755
--- a/fs_signup/fs_signup_server
+++ b/fs_signup/fs_signup_server
@@ -163,7 +163,7 @@ while (1) {
 
     use Tie::RefHash;
     tie my %hash, 'Tie::RefHash';
-    %hash = { $cust_pkg => [ $svc_acct ] };
+    %hash = ( $cust_pkg => [ $svc_acct ] );
     $error ||= $cust_main->insert( \%hash );
     #if ( $cust_pkg && ! $error ) { #in this case, $cust_pkg should always
     #                               #be definied, but....