| … | |
… | |
| 63 | my $t2 = Time::HiRes::time; |
63 | my $t2 = Time::HiRes::time; |
| 64 | |
64 | |
| 65 | print "\n", |
65 | print "\n", |
| 66 | "command: '$cmd'\n", |
66 | "command: '$cmd'\n", |
| 67 | "execution time: ", $t2 - $t1, "\n"; |
67 | "execution time: ", $t2 - $t1, "\n"; |
| 68 | warn "evaluation error: $@" if $@; |
|
|
| 69 | print "evaluation error: $@\n" if $@; |
68 | print "evaluation error: $@\n" if $@; |
| 70 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; |
69 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; |
| 71 | print "\n> "; |
70 | print "\n> "; |
| 72 | |
71 | |
| 73 | select STDOUT; |
72 | select STDOUT; |
