if ($@) {
error($@);
}
- my $output;
- if ($param{verbatim}) {
+ my $output = "sweave output\n\n";
+ if (exists $param{verbatim}) {
$output = $param{code};
$output =~ s/^/> /mg;
}
next unless exists $pagestate{$page}{$id};
next unless exists $pagestate{$page}{$id}{R};
if (defined $pagestate{$page}{$id}{R}
- and $pagestate{$param{page}}{$id}{R}->is_started()) {
+ and $pagestate{$page}{$id}{R}->is_started()) {
$pagestate{$page}{$id}{R}->stop;
}
delete $pagestate{$page}{$id}{R};