debug with csv lines
This commit is contained in:
parent
7b385a9518
commit
5ac9844030
1 changed files with 1 additions and 0 deletions
|
@ -1067,6 +1067,7 @@ sub select_csv_file {
|
||||||
$l =~ s/^/"/;
|
$l =~ s/^/"/;
|
||||||
$l =~ s/$/"\n/;
|
$l =~ s/$/"\n/;
|
||||||
print $fh $l;
|
print $fh $l;
|
||||||
|
print $l if $opt{debug};
|
||||||
}
|
}
|
||||||
close $fh;
|
close $fh;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue