Fit deprecation of "naked" { in regex for perl 5.17.x

PDLPorters · Aug 24, 2012 · 2da876d · 2da876d
1 parent 2d0410f
commit 2da876d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Perldl2/Plugin/CleanErrors.pm b/Perldl2/Plugin/CleanErrors.pm
@@ -18,7 +18,7 @@ sub clean_error_string {
    $bigerr =~ s/^\s+Class::MOP.*$//ms;
    $bigerr =~ s/^\s+Lexical::Persistence.*$//ms;
    $bigerr =~ s/^\s+main::.*$//ms;
-   $bigerr =~ s/^\s+eval {.*$//ms;
+   $bigerr =~ s/^\s+eval \{.*$//ms;
    $bigerr =~ s/^\s+PDL::Core::barf.*$//ms;
    return $bigerr;
 }