small bugfix for options option

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 63cf00f..a0683c8 100644 (file)
--- 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 {