for (my $i = 0; $i < scalar(@{$ary}); $i++) {
# do magic markers
- $form->{"__first__"} = $i == 1;
+ $form->{"__first__"} = $i == 0;
$form->{"__last__"} = ($i + 1) == scalar(@{$ary});
$form->{"__odd__"} = (($i + 1) % 2) == 1;
$form->{"__counter__"} = $i + 1;
$self->{"error"} = "$!";
return 0;
}
+ binmode IN, ":utf8" if $::locale->is_utf8;
my @lines = <IN>;
close(IN);
return 0;
}
+ binmode OUT, ":utf8" if $::locale->is_utf8;
print(OUT $new_contents);
if ($form->{"format"} =~ /postscript/i) {