Revision f2b3e089
Von Jan Büren vor etwa 6 Jahren hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
use Carp; |
| 5 | 5 |
use DateTime; |
| 6 |
use Encode qw(decode);
|
|
| 6 |
use Encode qw(encode);
|
|
| 7 | 7 |
use Scalar::Util qw(looks_like_number); |
| 8 | 8 |
|
| 9 | 9 |
use SL::DB::Datev; |
| ... | ... | |
| 260 | 260 |
my ($test) = @_; |
| 261 | 261 |
return undef unless $test; |
| 262 | 262 |
if (eval {
|
| 263 |
decode('Windows-1252', $test, Encode::FB_CROAK|Encode::LEAVE_SRC);
|
|
| 263 |
encode('Windows-1252', $test, Encode::FB_CROAK|Encode::LEAVE_SRC);
|
|
| 264 | 264 |
1 |
| 265 | 265 |
}) {
|
| 266 | 266 |
return 1; |
Auch abrufbar als: Unified diff
DATEV/CSV check_encoding, sollte wirklich das encoding checken
Entsprechend vier Testfälle für die Routine gesetzt und
Hintergründe in #348 dokumentiert.