Fix for 5.18 and 5.20

diff --git a/Changes b/Changes
index d8e3b3e..845c27f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+    - Fix for 5.18 and 5.20
     - Don't copy column data from schema that does anything other
       than define data type.  e.g. autoinc stuff
 

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 ) = @_;