diff options
Diffstat (limited to 'lib/Travelynx/Command/integritycheck.pm')
| -rw-r--r-- | lib/Travelynx/Command/integritycheck.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Travelynx/Command/integritycheck.pm b/lib/Travelynx/Command/integritycheck.pm index 774ef6f..4cfc48d 100644 --- a/lib/Travelynx/Command/integritycheck.pm +++ b/lib/Travelynx/Command/integritycheck.pm @@ -56,8 +56,9 @@ sub run { my %notified; my $rename = $self->app->renamed_station; - $res = $self->app->pg->db->select( 'journeys', [ 'route', 'edited' ] ); - for my $j ( $res->expand->hashes->each ) { + $res + = $self->app->pg->db->select( 'journeys', [ 'route', 'edited' ] )->expand; + while ( my $j = $res->hash ) { if ( $j->{edited} & 0x0010 ) { next; } |