Fix for 5.18 and 5.20

[dbsrgits/DBIx-Class-Journal.git] / lib / DBIx / Class / Journal / EvalWrap.pm

diff --git a/lib/DBIx/Class/Journal/EvalWrap.pm b/lib/DBIx/Class/Journal/EvalWrap.pm
index f6d89d0..bab95d2 100644 (file)
--- a/lib/DBIx/Class/Journal/EvalWrap.pm
+++ b/lib/DBIx/Class/Journal/EvalWrap.pm
@@ -4,7 +4,7 @@ use base qw(DBIx::Class::Journal);
 use strict;
 use warnings;
 
-foreach my $method qw(journal_log_update journal_log_insert journal_log_delete) {
+foreach my $method (qw(journal_log_update journal_log_insert journal_log_delete)) {
     local $@;
     eval "sub $method " . ' {
     my ( $self, @args ) = @_;