Suggested by Tomas Malecek
- my ($r,$left,$right) = @_;
- pos $$r = pos($$r)-1;
+ my ($r, $left, $right) = @_;
+ pos $$r = pos($$r) - 1;
my $z = "";
my $nest = 0;
do {
my $z = "";
my $nest = 0;
do {
$current_file_name = $name;
$current_string = \$t;
pos $t = 0;
$current_file_name = $name;
$current_string = \$t;
pos $t = 0;
$current_pos = pos $t;
if ($t =~ /\G([^\@]+)/cgs) {
out $1 if $cond[0] > 0;
$current_pos = pos $t;
if ($t =~ /\G([^\@]+)/cgs) {
out $1 if $cond[0] > 0;
parse_string($text, $name);
}
parse_string($text, $name);
}
$arguments = $_[0];
@cond = (1);
}
$arguments = $_[0];
@cond = (1);
}
$#cond and error "Unterminated \@if (depth $#cond)";
}
$#cond and error "Unterminated \@if (depth $#cond)";
}