Gisle Aas schrieb am 2001-09-12, 15:05:
>"Gerrit Haase" <[EMAIL PROTECTED]> writes:
[...]
>> --
>> diff -ur URI-1.16-orig/t/heuristic.t URI-1.16/t/heuristic.t
>> --- URI-1.16-orig/t/heuristic.t Tue Feb 27 21:02:22 2001
>> +++ URI-1.16/t/heuristic.t Fri Sep 7 21:29:42 2001
>> @@ -6,8 +6,8 @@
>> print "1..14\n";
>>
>> use URI::Heuristic qw(uf_urlstr uf_url);
>> -$URI::Heuristic::DEBUG++;
>> -open(STDERR, ">&STDOUT"); # redirect STDERR
>> +#$URI::Heuristic::DEBUG++;
>> +#open(STDERR, ">&STDOUT"); # redirect STDERR
>
>But this patch only hides the symptoms of some other problem with
>cygwin AFAICT. This test can be reduced into something that says:
>
> print "1..2\n";
> open(STDERR, ">&STDOUT"); # redirect STDERR
> print STDERR "xxx\n";
> print "ok 1\n";
> print STDERR "yyy\n";
> print "ok 2\n";
>
>Does this test succeed for you? What is the output when you redirect
>the output of this test to a file?
Succeeds in all cases:
$ perl stderr.pl
1..2
xxx
ok 1
yyy
ok 2
$ perl stderr.pl 2>&1 | tee log.stderr.pl
1..2
ok 1
ok 2
xxx
yyy
$ perl stderr.pl > log.stderr.pl2
1..2
xxx
yyy
ok 1
ok 2
>Does the test succeed if you add '$| = 1;' to the top of it?
$ perl stderr.pl
1..2
xxx
ok 1
yyy
ok 2
$ perl stderr.pl 2>&1 | tee log.stderr.pl
1..2
ok 1
ok 2
xxx
yyy
$ perl stderr.pl > log.stderr.pl2
1..2
xxx
ok 1
yyy
ok 2
>> print "not " unless uf_urlstr("http://www.sn.no/";) eq "http://www.sn.no/";;
>> print "ok 1\n";
>>
>> --
>>
>> Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
>> Platform:
>> osname=cygwin, osvers=1.3.2(0.3932), archname=cygwin-multi
>> uname='cygwin_nt-4.0 loreley 1.3.2(0.3932) 2001-05-20 23:28 i686 unknown '
>> config_args='-de -Dusemultiplicity'
>> hint=recommended, useposix=true, d_sigaction=define
>> usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=define
>> useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
>> use64bitint=undef use64bitall=undef uselongdouble=undef
>> Compiler:
>> cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing
>-I/usr/local/include',
>> optimize='-O2',
>> cppflags='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -I/usr/local/include'
>> ccversion='', gccversion='2.95.3-5 (cygwin special)', gccosandvers=''
>> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
>> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
>> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
>> alignbytes=8, usemymalloc=y, prototype=define
>> Linker and Libraries:
>> ld='ld2', ldflags =' -s -L/usr/local/lib'
>> libpth=/usr/local/lib /usr/lib /lib
>> libs=-lgdbm -lcrypt
>> perllibs=-lcrypt
>> libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl5_6_1.a
>> Dynamic Linking:
>> dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
>> cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'
>
Gerrit
--
=^..^=
