diff options
| -rw-r--r-- | FS/FS/part_pkg.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 63cf00f57..a0683c822 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -190,7 +190,7 @@ sub insert { } elsif ( $options{'options'} ) { warn " inserting part_pkg_option records for options hashref" if $DEBUG; - foreach my $optionname ( %{$options{'options'}} ) { + foreach my $optionname ( keys %{$options{'options'}} ) { my $part_pkg_option = new FS::part_pkg_option { |