develooper Front page | perl.perl5.porters | Postings from March 2006

[perl #38748] qx seems to loose the subpr. way for print /dev/tty

Thread Previous | Thread Next
From:
ende
Date:
March 17, 2006 04:02
Subject:
[perl #38748] qx seems to loose the subpr. way for print /dev/tty
Message ID:
rt-3.0.11-38748-131214.11.7637167924777@perl.org
# New Ticket Created by  ende 
# Please include the string:  [perl #38748]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38748 >


To: perlbug@perl.org
Subject: qx seems to loose the subpr. way for print /dev/tty
Reply-To: juanfc@lcc.uma.es
Message-Id: <5.8.6_21293_1142583702@juanfcG5.local>

This is a bug report for perl from juanfc@lcc.uma.es,
generated with the help of perlbug 1.35 running under perl v5.8.6.


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

I send messages through /dev/tty with

	exec echo >/dev/tty

in a tcl script that is called from a Perl script.

The Perl script is on forever with a loop, allowing me
a more easy control of both the Tcl script and the frequency
and actions I want the daemon do each 10 minutes.



In the "daemonized" perl script, that has the loop:

while (1) {
     `/Users/home/bin/tclprocThatusesdevtty.tcl -a`;
     # .....
     sleep 600;
}

only the first time the Tcl program is runned, the messages sent
by the Tcl program are really sent to the /dev/tty.  Then, no more
messages are seen in the Terminal.  The perl script seems
running ok all the time and the Tcl program also seems been called...

If I do the same stuff with sh

while [ 1 -eq 1 ]; do
     /Users/juanfc/bin/drg.tcl -a
     # ....
     sleep 600
done


there is no problem at all.



[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
     category=core
     severity=high
---
Site configuration information for perl v5.8.6:

Configured by root at Sun Mar 20 16:31:42 PST 2005.

Summary of my perl5 (revision 5 version 8 subversion 6) configuration:
   Platform:
     osname=darwin, osvers=8.0, archname=darwin-thread-multi-2level
     uname='darwin b28.apple.com 8.0 darwin kernel version 7.5.0: thu  
mar 3 18:48:46 pst 2005; root:xnuxnu-517.99.13.obj~1release_ppc power  
macintosh powerpc '
     config_args='-ds -e -Dprefix=/usr -Dccflags=-g  -pipe  - 
Dldflags=-Dman3ext=3pm -Duseithreads -Duseshrplib'
     hint=recommended, useposix=true, d_sigaction=define
     usethreads=define use5005threads=undef useithreads=define  
usemultiplicity=define
     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=undef use64bitall=undef uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='cc', ccflags ='-g -pipe -fno-common -DPERL_DARWIN -no-cpp- 
precomp -fno-strict-aliasing -I/usr/local/include',
     optimize='-Os',
     cppflags='-no-cpp-precomp -g -pipe -fno-common -DPERL_DARWIN -no- 
cpp-precomp -fno-strict-aliasing -I/usr/local/include'
     ccversion='', gccversion='3.3 20030304 (Apple Computer, Inc.  
build 1809)', gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
     ivtype='long', ivsize=4, nvtype='double', nvsize=8,  
Off_t='off_t', lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags ='-L/usr/ 
local/lib'
     libpth=/usr/local/lib /usr/lib
     libs=-ldbm -ldl -lm -lc
     perllibs=-ldl -lm -lc
     libc=/usr/lib/libc.dylib, so=dylib, useshrplib=true,  
libperl=libperl.dylib
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
     cccdlflags=' ', lddlflags='-bundle -undefined dynamic_lookup -L/ 
usr/local/lib'

Locally applied patches:
     23953 - fix for File::Path::rmtree CAN-2004-0452 security issue
     33990 - fix for setuid perl security issues

---
@INC for perl v5.8.6:
     /sw/lib/perl5
     /sw/lib/perl5/darwin
     /System/Library/Perl/5.8.6/darwin-thread-multi-2level
     /System/Library/Perl/5.8.6
     /Library/Perl/5.8.6/darwin-thread-multi-2level
     /Library/Perl/5.8.6
     /Library/Perl
     /Network/Library/Perl/5.8.6/darwin-thread-multi-2level
     /Network/Library/Perl/5.8.6
     /Network/Library/Perl
     /System/Library/Perl/Extras/5.8.6/darwin-thread-multi-2level
     /System/Library/Perl/Extras/5.8.6
     /Library/Perl/5.8.1/darwin-thread-multi-2level
     /Library/Perl/5.8.1
     .

---
Environment for perl v5.8.6:
     DYLD_LIBRARY_PATH (unset)
     HOME=/Users/juanfc
     LANG (unset)
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
     PATH=/sw/bin:/sw/sbin:/Library/Tcl/bin:/bin:/sbin:/usr/bin:/usr/ 
sbin:/Developer/Tools:/usr/X11R6/bin:/usr/local/teTeX/bin/powerpc- 
apple-darwin-current:/Users/juanfc/bin:/Users/juanfc/ubin:/Users/ 
juanfc/perls:/opt/local/bin:.:/usr/local/bin
     PERL5LIB=/sw/lib/perl5:/sw/lib/perl5/darwin
     PERL_BADLANG (unset)
     SHELL=/bin/tcsh


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About