public inbox for cygwin@cygwin.com
 help / color / mirror / Atom feed
* Perl Win32::Shortcut screws up fork
@ 2005-07-07 17:10 Adye, TJ (Tim)
       [not found] ` <7231C15EAC2F164CA6DC326D97493C8BA1C3F1@exchange35.fed.cclr  c.ac.uk>
  0 siblings, 1 reply; 15+ messages in thread
From: Adye, TJ (Tim) @ 2005-07-07 17:10 UTC (permalink / raw)
  To: cygwin

Hi,

In an attempt to work round the problem with readshortcut I reported
earlier, I thought I'd use a Perl script. Unfortunately the
Win32::Shortcut package seems to cause problems with process forking
(unlike the readshortcut error, this one isn't specific to the latest
cygwin DLL). I get an error

C:\cygwin\bin\perl.exe (3088): *** unable to remap
C:\cygwin\lib\perl5\vendor_perl\5.8\cygwin\auto\Win32\Shortcut\Shortcut.
dll to same address as parent(0xBF0000) != 0x1110000
     13 [main] perl 3716 fork_parent: child 3088 died waiting for dll
loading

Here's an example that demonstrates the problem.

#!/usr/bin/perl -w
use strict;
use Win32::Shortcut;

if (my $pid= open (my $pipe, '-|')) {
  print "forked child process $pid\n";
  while (<$pipe>) { print "from child: $_"; }
  close ($pipe) or die;
} elsif (defined $pid) {
  print "this is the child\n";
  exit;
} else {
  print "fork failed: $!\n";
}

Without the "use Win32::Shortcut", the script runs fine. With the
package the fork fails with the error message I gave. Win32::Shortcut
works fine if I don't fork or don't do it until after the package is
loaded (eg. I can eval "require Win32::Shortcut" after the fork). I see
this behaviour with Perl 5.8.6 and 5.8.7 and Cygwin 1.5.17-1 and
1.5.18-1.

This error makes it a tricky to convert the Win32::Shortcut output to
Cygwin-style paths with cygpath -u (without resorting to a separate
program to parse the results). Or is there a Perl module that can do the
cygpath conversion? That would be even nicer!

Thanks,
Tim.

==============================  cut here  ==============================
Tim Adye, BaBar Group, Particle Physics Dept.,             _   /|
          Rutherford Appleton Laboratory, UK.              \'o.O'   Oop!
e-mail:   T.J.Adye@rl.ac.uk                                =(___)=  Ack!
WWW:      http://hepwww.rl.ac.uk/Delphi/Adye/homepage.html    U  Thphft!

--
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/

^ permalink raw reply	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2005-07-11 22:55 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-07-07 17:10 Perl Win32::Shortcut screws up fork Adye, TJ (Tim)
     [not found] ` <7231C15EAC2F164CA6DC326D97493C8BA1C3F1@exchange35.fed.cclr  c.ac.uk>
2005-07-07 18:09   ` Larry Hall
2005-07-07 18:29     ` question for perl maintainer Christopher Faylor
2005-07-07 20:47       ` Gerrit P. Haase
2005-07-07 21:12         ` Gerrit P. Haase
2005-07-07 21:50           ` Christopher Faylor
2005-07-08  9:53             ` Gerrit P. Haase
2005-07-08 12:27               ` Christopher Faylor
2005-07-08 15:22                 ` Gerrit P. Haase
2005-07-08 17:27                   ` Corinna Vinschen
2005-07-08 17:47                     ` Gerrit P. Haase
2005-07-08 17:53                       ` Corinna Vinschen
     [not found]                     ` <20050708173253.GG18981@trixie.casa.cgf.cx>
     [not found]                       ` <0add01c583e4$6d667320$3e0010ac@wirelessworld.airvananet.com>
     [not found]                         ` <20050708180417.GK18981@trixie.casa.cgf.cx>
     [not found]                           ` <20050711130656.GD3856@tishler.net>
     [not found]                             ` <0bdb01c5861d$429e2080$3e0010ac@wirelessworld.airvananet.com>
     [not found]                               ` <20050711134355.GG3856@tishler.net>
     [not found]                                 ` <42D28927.7010401@familiehaase.de>
     [not found]                                   ` <20050711150703.GA444@tishler.net>
2005-07-11 22:55                                     ` Observation for ALL maintainers who provide dlls (was Re: question for perl maintainer) Gerrit P. Haase
2005-07-11 12:30           ` question for perl maintainer Jason Tishler
2005-07-07 21:49         ` Christopher Faylor

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).