|
Lines 1148-1165
Link Here
|
| 1148 |
} |
1148 |
} |
| 1149 |
$val = \@lval; |
1149 |
$val = \@lval; |
| 1150 |
} |
1150 |
} |
| 1151 |
y2debug ("-------------------- key: $key, value: $val"); |
1151 |
y2internal ("-------------------- key: $key, value: $val"); |
| 1152 |
|
1152 |
|
| 1153 |
# now remove the keys with the unchanged values... |
1153 |
# now remove the keys with the unchanged values... |
| 1154 |
if (defined $org_object && defined $org_object->{$key}) { |
1154 |
if (defined $org_object && defined $org_object->{$key}) { |
| 1155 |
|
1155 |
|
| 1156 |
if (ref ($val) eq "ARRAY" && ref ($org_object->{$key}) eq "ARRAY" |
1156 |
if (ref ($val) eq "ARRAY" && ref ($org_object->{$key}) eq "ARRAY" |
| 1157 |
&& same_arrays ($val, $org_object->{$key})) { |
1157 |
&& same_arrays ($val, $org_object->{$key})) { |
| 1158 |
y2debug ("---- unchanged array key: $key, value: ", @$val); |
1158 |
y2internal ("---- unchanged array key: $key, value: ", @$val); |
| 1159 |
next; |
1159 |
next; |
| 1160 |
} |
1160 |
} |
| 1161 |
elsif ($org_object->{$key} eq $val) { |
1161 |
elsif ($org_object->{$key} eq $val) { |
| 1162 |
y2debug ("---------- unchanged key: $key, value: $val"); |
1162 |
y2internal ("---------- unchanged key: $key, value: $val"); |
| 1163 |
next; |
1163 |
next; |
| 1164 |
} |
1164 |
} |
| 1165 |
} |
1165 |
} |