diff --git a/lang/perl/lib/Avro/BinaryDecoder.pm b/lang/perl/lib/Avro/BinaryDecoder.pm
index fa12fcf0710..55732279052 100644
--- a/lang/perl/lib/Avro/BinaryDecoder.pm
+++ b/lang/perl/lib/Avro/BinaryDecoder.pm
@@ -67,7 +67,7 @@ sub decode {
     my $type = Avro::Schema->match(
         writer => $writer_schema,
         reader => $reader_schema,
-    ) or throw Avro::Schema::Error::Mismatch;
+    ) or throw Avro::Schema::Error::Mismatch 'schema do not match';
 
     my $meth = "decode_$type";
     return $class->$meth($writer_schema, $reader_schema, $reader);
diff --git a/lang/perl/xt/schema.t b/lang/perl/xt/schema.t
index 5225ce455c2..06792b28de0 100644
--- a/lang/perl/xt/schema.t
+++ b/lang/perl/xt/schema.t
@@ -23,7 +23,7 @@ use File::Find;
 use_ok 'Avro::Schema';
 
 sub parse {
-    next unless /\.avsc$/;
+    return unless /\.avsc$/;
     open(my $fh, '<', $_);
     local $/ = undef;
     my $schema = <$fh>;