|
@@ -27,7 +27,7 @@ for (my $s = 0; $s < $stride; $s++) {
|
|
|
my $ofname = $outfile;
|
|
|
if ($stride > 1) {
|
|
|
$outfile =~ /^(.*?)(\.\w+)?$/;
|
|
|
- $ofname = sprintf("%s.%0${sdig}x%s", $1, $s, $2);
|
|
|
+ $ofname = sprintf("%s.%d%s", $1, $s, $2);
|
|
|
}
|
|
|
|
|
|
open(my $out, '>', $ofname) or die;
|