Revert "unify the program name in output string"

FROGGS · FROGGS · commit dc58e9461805 · 2014-01-21T09:19:29.000+01:00
This reverts commit c578363.
diff --git a/lib/EvalbotExecuter.pm b/lib/EvalbotExecuter.pm
@@ -136,9 +136,8 @@ sub _fork_and_eval {
         $result = "(signal " . (split ' ', $Config{sig_name})[$?] . ")" . $result;
     }
     if (reftype($executer) eq 'HASH' && $executer->{filter}){
-        $result = $executer->{filter}->($result);
+        return $executer->{filter}->($result);
     }
-    $result =~ s/\Q$filename\E/<program>/g;
     return $result;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -136,9 +136,8 @@ sub _fork_and_eval {`
`136`	`136`	`$result = "(signal " . (split ' ', $Config{sig_name})[$?] . ")" . $result;`
`137`	`137`	`}`
`138`	`138`	`if (reftype($executer) eq 'HASH' && $executer->{filter}){`
`139`		`- $result = $executer->{filter}->($result);`
	`139`	`+ return $executer->{filter}->($result);`
`140`	`140`	`}`
`141`		`- $result =~ s/\Q$filename\E/<program>/g;`
`142`	`141`	`return $result;`
`143`	`142`	`}`
`144`	`143`