X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Fstructure%2Fno_lexicals_in_postif.t;h=3f906937fd57337d1bc5a2067bb88cc73cd98347;hb=10d6fe63ec82e50322a1fe08902fde7a0c1efa4e;hp=c7d4c30354479eb8c879b9b3c563f9c63ebcb6a5;hpb=4000444b681301ef283c2c0ea55f41edb0deeb42;p=kivitendo-erp.git

diff --git a/t/structure/no_lexicals_in_postif.t b/t/structure/no_lexicals_in_postif.t
index c7d4c3035..3f906937f 100644
--- a/t/structure/no_lexicals_in_postif.t
+++ b/t/structure/no_lexicals_in_postif.t
@@ -25,7 +25,21 @@ my @testitems = @Support::Files::testitems;
 
 foreach my $file (@testitems) {
   my $clean = 1;
-  my $doc = PPI::Document->new($file) or do {
+  my $source;
+  {
+    # due to a bug in PPI it cannot determine the encoding of a source file by
+    # use utf8; normaly this would be no problem but some people instist on
+    # putting strange stuff into the source. as a workaround read in the source
+    # with :utf8 layer and pass it to PPI by reference
+    # there are still some latin chars, but it's not the purpose of this test
+    # to find them, so warnings about it will be ignored
+    local $^W = 0; # don't care about invalid chars in comments
+    local $/ = undef;
+    open my $fh, '<:utf8', $file or die $!;
+    $source = <$fh>;
+  }
+
+  my $doc = PPI::Document->new(\$source) or do {
     print $fh "?: PPI error for file $file: " . PPI::Document::errstr() . "\n";
     ok 0, $file;
     next;