print the name instead of a reference

metacpan · Feb 20, 2015 · f0bea9c · f0bea9c
1 parent f3de0bc
commit f0bea9c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Model/Release.pm b/lib/MetaCPAN/Model/Release.pm
@@ -125,9 +125,9 @@ sub _build_archive {
 
     my $archive = MetaCPAN::Model::Archive->new( file => $self->file );
 
-    log_error {"$self->file is being impolite"} if $archive->is_impolite;
+    log_error { $self->file, ' is being impolite' } if $archive->is_impolite;
 
-    log_error {"$self->file is being naughty"} if $archive->is_naughty;
+    log_error { $self->file, ' is being naughty' } if $archive->is_naughty;
 
     return $archive;
 }