Rewritten error handling, so that proper line numbers are reported

[temple.git] / test

diff --git a/test b/test
index 0cff4b173f971f30938f3a568ba7f7408c5a0696..90ab406fd7edad2a4fe79b50a8594650f3d58517 100644 (file)
--- a/test
+++ b/test
@@ -39,7 +39,9 @@ I was run as @$0.
 @out "Four", "Five", "Six\n"
 
 @# Of course you can define your own functions (they live in the T:: namespace)
-@[ sub quork($) { my ($arg) = @_; return "Thus quoth the Penguin: $arg"; } ]
+@[ sub quork($) { my ($arg) = @_;
+return "Thus quorkth the Penguin: $arg";
+} ]
 @quork("404!")
 
 @# There are also some conditionals (you can use any perl expressions):