print_property_string: correctly implement skip parameter

This commit is contained in:
Dietmar Maurer 2016-05-12 07:25:51 +02:00
parent c88c582dec
commit 2289890bad

View File

@ -1593,7 +1593,7 @@ sub print_property_string {
}
};
my $done = {};
my $done = { map { $_ => 1 } @$skip };
my $cond_add_key = sub {
my ($key) = @_;