Kevin Roth's fixes to make tests work on cygwin (59a76e40) · Commits · CYBER - Cyber Security / TS 103 523 MSP / TLMSP / TLMSP curl

tests/getpart.pm

+6 −1

Original line number	Diff line number	Diff line
		@@ -119,9 +119,13 @@ sub compareparts {
		for(1 .. $sizefirst) {
		my $index = $_ - 1;
		if($firstref->[$index] ne $secondref->[$index]) {
		(my $aa = $firstref->[$index]) =~ s/\r+\n$/\n/;
		(my $bb = $secondref->[$index]) =~ s/\r+\n$/\n/;
		if($aa ne $bb) {
		return 1+$index;
		}
		}
		}
		return 0;
		}

		@@ -132,6 +136,7 @@ sub writearray {
		my ($filename, $arrayref)=@_;

		open(TEMP, ">$filename");
		binmode(TEMP,":raw"); # cygwin fix by Kevin Roth
		for(@$arrayref) {
		print TEMP $_;
		}

+3 −0

Original line number	Diff line number	Diff line
		@@ -137,6 +137,9 @@ for ( $waitedpid = 0;
		$testnum=0;
		}
		open(INPUT, ">>log/server.input");

		binmode(INPUT,":raw"); # this makes it work better on cygwin

		for(@headers) {
		print INPUT $_;
		}