diff options
| author | ivan <ivan> | 1999-08-11 15:38:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-08-11 15:38:33 +0000 |
| commit | a1e172b1700ef8ea6b9d84f600e26ff53b9e300e (patch) | |
| tree | 1bfdd6dad3a124b10cc4ab868083580fa74b7617 /htdocs | |
| parent | 6178bdb5a08527e9c64deb05fab6b836af869695 (diff) | |
fix for perl 5.004_04
Diffstat (limited to 'htdocs')
| -rwxr-xr-x | htdocs/edit/cust_main.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index 612d137b2..d5ae36348 100755 --- a/htdocs/edit/cust_main.cgi +++ b/htdocs/edit/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.17 1999-08-10 11:15:45 ivan Exp $ +# $Id: cust_main.cgi,v 1.18 1999-08-11 15:38:33 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -38,7 +38,10 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.17 1999-08-10 11:15:45 ivan +# Revision 1.18 1999-08-11 15:38:33 ivan +# fix for perl 5.004_04 +# +# Revision 1.17 1999/08/10 11:15:45 ivan # corrected a misleading comment # # Revision 1.15 1999/04/14 13:14:54 ivan @@ -346,7 +349,8 @@ unless ( $custnum ) { my %typenum; foreach my $agent ( @agents ) { next if $typenum{$agent->typenum}++; - $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref } + #5.004_04 barfs (5.004_05 okay?)# $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref } + foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } } } #eslaf |