summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Command/integritycheck.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx/Command/integritycheck.pm')
-rw-r--r--lib/Travelynx/Command/integritycheck.pm5
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;
}