FAQ
This is a bug report for perl from "Anton Tagunov" <tagunov@motor.ru>
generated with the help of perlbug 1.33 running under perl v5.7.3.


-----------------------------------------------------------------
Hello, developers! perldoc -f open gives the following in one
of the examples:

This is a bug report for perl from "Anton Tagunov" <tagunov@motor.ru>
generated with the help of perlbug 1.33 running under perl v5.7.3.


-----------------------------------------------------------------
Hello, developers! perldoc -f open gives the following in one
of the examples:

Here is a script that saves, redirects, and restores STDOUT and
STDERR:

#!/usr/bin/perl
open(my $oldout, ">&", \*STDOUT);

But the following script

use strict; use warnings;
open my $fh,'>&',\*STDOUT or die "$!";
print $fh "ok" or die "$!";

prints nothing :-(
No other variants with ">&" and STDOUT worked :-(

Best regards, Anton

Possibly related to Ack - [ID 20020306.016] win NT: when close
'<&='-d file handle the original one remains open...

-----------------------------------------------------------------
---
Flags:
category=docs
severity=low
---
Site configuration information for perl v5.7.3:

Configured by anthony at Mon Mar 11 18:43:11 2002.

Summary of my perl5 (revision 5 undef) configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=undef use5005threads=undef useithreads=define usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cl', ccflags ='-nologo -Gf -W3 -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX',
optimize='-O1 -MD -DNDEBUG',
cppflags='-DWIN32'
ccversion='undef', gccversion='', gccosandvers='undef'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
alignbytes=8, prototype=define
Linker and Libraries:
ld='link', ldflags ='-nologo -nodefaultlib -release -libpath:"c:\perl15173\lib\CORE" -machine:x86'
libpth=e:\apps\ds40\VC\lib
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib
perllibs=undef
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl57.lib
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release -libpath:"c:\perl15173\lib\CORE" -machine:x86'

Locally applied patches:
DEVEL15172

---
@INC for perl v5.7.3:
c:/perl15173/lib
c:/perl15173/site/lib
.

---
Environment for perl v5.7.3:
HOME=C:\
LANG (unset)
LANGUAGE (unset)
LC_ALL=EN_US
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=e:\apps\ds40\SharedIDE\BIN;e:\apps\ds40\VC\BIN;e:\apps\ds40\VC\BIN\WINNT;E:\apps\ibm\vaj\eab\bin;C:\usr\local\bin\;e:\Program Files\ibm\gsk5\lib;E:\APPS\ROSE\RATION~1\NUTCROOT\bin;E:\APPS\ROSE\RATION~1\NUTCROOT\bin\x11;E:\APPS\ROSE\RATION~1\NUTCROOT\mksnt;e:\java\sun\java131\bin;e:\apps\vbroker\jre\Bin;e:\apps\vbroker\Bin;C:\WINNT\system32;C:\WINNT;c:\util;E:\apps\CacheSys\Bin;C:\Program Files\rksupport;C:\WINNT\ton\bin;E:\apps\rose\common;E:\apps\rose\Rational Test;E:\apps\borland\delphi\Bin;E:\apps\borland\delphi\Projects\Bpl;E:\apps\ibm\IBM\IMNNQ;E:\apps\ibm\db2p\BIN;E:\apps\ibm\db2p\FUNCTION;E:\apps\ibm\db2p\SAMPLES\REPL;E:\apps\ibm\db2p\HELP;e:\apps\ibm\websphere\bin;G:\MSVC50\VC\BIN;G:\MSVC50\VC\BIN\WINNT
PERL_BADLANG (unset)
SHELL (unset)


-----------------------------------------------------------------
---
Flags:
category=docs
severity=low
---
Site configuration information for perl v5.7.3:

Configured by anthony at Mon Mar 11 18:43:11 2002.

Summary of my perl5 (revision 5 undef) configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=undef use5005threads=undef useithreads=define usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cl', ccflags ='-nologo -Gf -W3 -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX',
optimize='-O1 -MD -DNDEBUG',
cppflags='-DWIN32'
ccversion='undef', gccversion='', gccosandvers='undef'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
alignbytes=8, prototype=define
Linker and Libraries:
ld='link', ldflags ='-nologo -nodefaultlib -release -libpath:"c:\perl15173\lib\CORE" -machine:x86'
libpth=e:\apps\ds40\VC\lib
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib
perllibs=undef
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl57.lib
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release -libpath:"c:\perl15173\lib\CORE" -machine:x86'

Locally applied patches:
DEVEL15172

---
@INC for perl v5.7.3:
c:/perl15173/lib
c:/perl15173/site/lib
.

---
Environment for perl v5.7.3:
HOME=C:\
LANG (unset)
LANGUAGE (unset)
LC_ALL=EN_US
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=e:\apps\ds40\SharedIDE\BIN;e:\apps\ds40\VC\BIN;e:\apps\ds40\VC\BIN\WINNT;E:\apps\ibm\vaj\eab\bin;C:\usr\local\bin\;e:\Program Files\ibm\gsk5\lib;E:\APPS\ROSE\RATION~1\NUTCROOT\bin;E:\APPS\ROSE\RATION~1\NUTCROOT\bin\x11;E:\APPS\ROSE\RATION~1\NUTCROOT\mksnt;e:\java\sun\java131\bin;e:\apps\vbroker\jre\Bin;e:\apps\vbroker\Bin;C:\WINNT\system32;C:\WINNT;c:\util;E:\apps\CacheSys\Bin;C:\Program Files\rksupport;C:\WINNT\ton\bin;E:\apps\rose\common;E:\apps\rose\Rational Test;E:\apps\borland\delphi\Bin;E:\apps\borland\delphi\Projects\Bpl;E:\apps\ibm\IBM\IMNNQ;E:\apps\ibm\db2p\BIN;E:\apps\ibm\db2p\FUNCTION;E:\apps\ibm\db2p\SAMPLES\REPL;E:\apps\ibm\db2p\HELP;e:\apps\ibm\websphere\bin;G:\MSVC50\VC\BIN;G:\MSVC50\VC\BIN\WINNT
PERL_BADLANG (unset)
SHELL (unset)

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupperl5-porters @
categoriesperl
postedMar 11, '02 at 7:17p
activeMar 11, '02 at 7:17p
posts1
users1
websiteperl.org

1 user in discussion

Anton Tagunov: 1 post

People

Translate

site design / logo © 2022 Grokbase