-
Notifications
You must be signed in to change notification settings - Fork 561
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
SDBM_File jumps over each 2nd pair when updating pairs while iterating #10368
Comments
From rehsack@googlemail.comCreated by rehsack@googlemail.com#!/usr/bin/perl use strict; use File::Spec; my $foo; $foo->{meta} = 'blub'; sub fetch_item { my @row = each %$foo; @row = each %$foo if( while( my ($key, $val) = fetch_item() ) print Dumper(\$foo); Should print: Prints: I expect that each hits every pair in a hash. If this is wrong, this might Perl Info
|
From @iabynConfirmed still present in blead; can be simplified to the following, use strict; use SDBM_File; my %h; unlink "$file.pag"; unlink "$file.dir"; $h{$_} = 'A' for 1..6;; while (my $key = each %h) { printf "%d: %s\n", $_, $h{$_} for sort keys %h; -- |
The RT System itself - Status changed from 'new' to 'open' |
Migrated from rt.perl.org#74984 (status was 'open')
Searchable as RT74984$
The text was updated successfully, but these errors were encountered: