re-introduced diag on fail

- reverting a0eccb4 and more - the story is that cpantester output was not verbose enough - example: http://www.cpantesters.org/cpan/report/a7d6a89a-94a5-11e4-972c-d4efdfbfc7aa
andk · Feb 2, 2015 · 688660d · 688660d
1 parent bfe68fa
commit 688660d
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/t/30shell.t b/t/30shell.t
@@ -359,9 +359,10 @@ expected[$expected]\ngot[$got]\n\n";
                         } ],
                       [ timeout => sub {
                             my $got = $expo->clear_accum;
-                            mydiag "timed out on i[$i]prog[$prog]
+                            # diag for cpantesters
+                            diag "timed out on i[$i]prog[$prog]
 expected[$expected]\ngot[$got]\n\n";
-                            mydiag sprintf(
+                            diag sprintf(
                                          "and perl says that [[[%s]]] %s match [[[%s]]]!",
                                          $got,
                                          $got=~/$expected/ ? "DOES" : "doesN'T",
@@ -420,7 +421,8 @@ if ($RUN_EXPECT) {
         } else {
             my $pos = pos $biggot;
             my $got = substr($biggot,$pos,1024);
-            mydiag "FAILED at pos[$pos]\nprog[$prog]\nexpected[$expected]\ngot[$got]";
+            # diag for cpantesters
+            diag "FAILED at pos[$pos]\nprog[$prog]\nexpected[$expected]\ngot[$got]";
             last;
             $ok = 0;
         }