Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm List-Subscribe: List-Archive: List-Post: List-Help: , Sender: cygwin-owner AT cygwin DOT com Mail-Followup-To: cygwin AT cygwin DOT com Delivered-To: mailing list cygwin AT cygwin DOT com From: "Herb Martin" To: Subject: RE: Perl v5.8.7, CygWin DLL 1.5.18, script runs differently (hangs) on Cygwin while running open FH, "netsh ...|" or die "..." Date: Tue, 16 Aug 2005 03:13:51 -0500 MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit In-Reply-To: Message-ID: X-Sign-LQC: HerbM AT learnquick DOT com/2005-08-16 03:13:37/=sosbljzr > > #!/usr/bin/perl -w > > open(NETSHARE, "net share |") or die "Can't run net share: $!\n"; > > print "we got through the call to 'net share'\n"; while > () { > > print; > > } > > > > open(IPSEC, "netsh ipsec static show all format=table |") or die > > "Can't run > > netsh: $!\n"; > > print "we got through the call to 'netsh'\n"; while () { > ^^^^^^^^ No, it's a type that I changed from using one name to the other somewhere during the preparation of the email (and failed to recopy the code) -- The calls were symetric on everything that failed. The above code would not "hang" but would do nothing after the "we got through..." print. The first version read: > > open(IPSEC, "netsh ipsec static show all format=table |") or die > > "Can't run > > netsh: $!\n"; > > print "we got through the call to 'netsh'\n"; while () { The current version now reads: > > open(NETSH, "netsh ipsec static show all format=table |") or die > > "Can't run > > netsh: $!\n"; > > print "we got through the call to 'netsh'\n"; while () { Both versions hang on the open with these netsh switches. Usually I paste the actually tested code -- I apologize for this mistake and the confusion. -- Herb Martin -- Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple Problem reports: http://cygwin.com/problems.html Documentation: http://cygwin.com/docs.html FAQ: http://cygwin.com/faq/