X-Git-Url: https://git.donarmstrong.com/?p=perltidy.git;a=blobdiff_plain;f=t%2Fsnippets22.t;h=a86591f28c8122bbafb02b51d742abeff3fa3fc8;hp=92563c258b62f8068a3886aed94ba6591889750b;hb=880633cc084e9d787eb9f760d3851c5d660db17c;hpb=57d829ae0e2c75828f8ecc9c7139579350927dbc diff --git a/t/snippets22.t b/t/snippets22.t index 92563c2..a86591f 100644 --- a/t/snippets22.t +++ b/t/snippets22.t @@ -46,7 +46,7 @@ BEGIN { -nboa ---------- 'braces7' => <<'----------', --bli -blil='*' +-bli -blil='*' -blixl='eval' ---------- 'def' => "", 'extrude' => "--extrude", @@ -369,11 +369,10 @@ $myfun = sub print("Hello, World\n"); }; -eval - { +eval { my $app = App::perlbrew->new( "install-patchperl", "-q" ); $app->run(); - } or do +} or do { $error = $@; $produced_error = 1;