test to make sure sweavealike is running

diff --git a/sweavealike.pm b/sweavealike.pm
index 939f803dce772ea2ad7165eef871cf064e14e60e..2056e51fadc15b245466089d16f63c2e77162691 100644 (file)
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -62,8 +62,8 @@ sub preprocess {
     if ($@) {
        error($@);
     }
-    my $output;
-    if ($param{verbatim}) {
+    my $output = "sweave output\n\n"
+    if (exists $param{verbatim}) {
        $output = $param{code};
        $output =~ s/^/> /mg;
     }