-c src/buffio.c -o src/buffio.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/clean.c -o src/clean.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/config.c -o src/config.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/entities.c -o src/entities.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/fileio.c -o src/fileio.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/istack.c -o src/istack.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/lexer.c -o src/lexer.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/localize.c -o src/localize.o
gcc -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 -DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1 -c src/mappedio.c -o src/mappedio.o
In file included from src/mappedio.c:100:
src/streamio.h:204:15: error: expected identifier or '(' before numeric constant
 #define CR    0xD
               ^~~
gmake: *** [C:\STRAWB~1\cpan\build\Alien-Tidyp-v1.4.7-7\patches\Makefile.mingw:45: src/mappedio.o] Error 1
###ERROR### [512] during make ...  at inc/My/Builder/Windows.pm line 39.
  KMX/Alien-Tidyp-v1.4.7.tar.gz
  C:\Strawberry\perl\bin\perl.exe ./Build -- NOT OK
Stopping: 'install' failed for 'Alien::Tidyp'.
Failed during this command:
 KMX/Alien-Tidyp-v1.4.7.tar.gz                : make NO

##</code><code>##

my $contents_of_file = 1;

         @files = glob "$call_dir/*.html";
         printf "Got %d files\n", scalar @files;

         my $tidy = HTML::Tidy->new( { tidy_mark => 1,
                                       #output_xhtml => 1, # yes
                                       #output_xhtml => 1, # yes
                                       add_xml_decl => 1, # no
                                       wrap   => 76,
                                       error_file => 'errs.txt',
                                       char_encoding => 'utf8',
                                       indent_cdata => 1,
                                       clean => 1,
                                       fix_bad_comments =>1
         });

         for my $file (@files){
            $$temp_var = read_file( $file );
            if ( $$temp_var =~ m|^URL.*| ){ next }              # this is empty file for error message in output.
            my $tres = $tidy->parse( $file, $$temp_var );
            print "Tidy file: $file, result is $tres\n";
         
            open OUT,'>',$file or die "$!";
            print OUT $tidy->clean( $file, $$temp_var );
            print "cleaning " . $file. "\n";
            close OUT;
         }
         $temp_var = undef;