[perl #51842] open(OUT, ">-") != open(OUT, ">", "-")

# New Ticket Created by  HG 
# Please include the string:  [perl #51842]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51842 >


This is a bug report for perl from himanshu.garg@gmail.com,
generated with the help of perlbug 1.35 running under perl v5.8.6.


-----------------------------------------------------------------
[Please enter your report here]

The following outputs Hello World! as expected

%  perl -e 'open(OUT, ">-"); print OUT "Hello World!";'
Hello World!

However the following writes to a file instead:-
% perl -e 'open(OUT, ">", "-"); print OUT "Hello World!";

I think this is not documented.

Thank You,
Himanshu.


[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=low
---
This perlbug was built using Perl v5.8.6 - Mon Jun 27 01:35:37 PDT 2005
It is being executed now by  Perl v5.8.6 - Thu Aug  4 00:18:57 PDT 2005.

Site configuration information for perl v5.8.6:

Configured by pvnaik at Thu Aug  4 00:18:57 PDT 2005.

Summary of my perl5 (revision 5 version 8 subversion 6) configuration:
  Platform:
    osname=linux, osvers=2.4.9-e.25kmap1enterprise, archname=i686-linux
    uname='linux ap601ses 2.4.9-e.25kmap1enterprise #1 smp thu jun 26
10:52:16 pdt 2003 i686 unknown '
    config_args='-de -Dprefix=/arudev -Dmake=/usr/bin/make
-Dbin=/arudev/bin/ -Uinstallusrbinperl -Dstartperl=#!/arudev/bin/perl
-Dinc_version_list=none -Dscriptdir=/nfs/group/arudev/arch/share/bin
-Dsitebin=/arudev/bin -Accflags=-DNO_HASH_SEED'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-DNO_HASH_SEED -fno-strict-aliasing -pipe
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
-I/usr/include/gdbm',
    optimize='-O2',
    cppflags='-DNO_HASH_SEED -fno-strict-aliasing -pipe -I/usr/local/include
-I/usr/include/gdbm'
    ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.2 2.96-118.7.2)',
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=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.2.4.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.4'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:


---
@INC for perl v5.8.6:
    /m/isd/pm
    /arudev/lib/perl5/5.8.6/i686-linux
    /arudev/lib/perl5/5.8.6
    /arudev/lib/perl5/site_perl/5.8.6/i686-linux
    /arudev/lib/perl5/site_perl/5.8.6
    /arudev/lib/perl5/site_perl
    .

---
Environment for perl v5.8.6:
    HOME=/home/hgarg
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LANGVAR=en_US.UTF-8

LD_LIBRARY_PATH=/lib:/usr/lib:/usr/openwin/lib:/arudev/lib:/arudev/oracle/9.2.0.7/lib
    LOGDIR (unset)

PATH=/m/isd/bin:.:/arudev/bin:/arudev/tools/bin:/arudev/triggers:/arudev/dba/bin:/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/ccs/bin:/usr/proc/bin:/usr/openwin/bin:/opt/SUNWspro/bin:/usr/ucb:/usr/atria/bin:/usr/bin/X11:/m/isd_qa/bin:/arudev/oracle/9.2.0.7/bin:/arudev/dba/bin:/m/isdev/dba/bin:.:/arudev/bin:/arudev/tools/bin:/arudev/triggers:/arudev/dba/bin:/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/ccs/bin:/usr/proc/bin:/usr/openwin/bin:/opt/SUNWspro/bin:/usr/ucb:/usr/atria/bin:/usr/bin/X11:/m/isd_qa/bin:/appldev/scs/bin:/arudev/dba/bin:/m/isdev/dba/bin
    PERL5LIB=/m/isd/pm
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/tcsh

• [perl #51842] open(OUT, ">-") != open(OUT, ">", "-") by HG
• Re: [perl #51842] open(OUT, ">-") != open(OUT, ">", "-") by Ronald J Kimball