<strong>Report forwarded</strong> to <code>debian-devel@lists.debian.org, Darren Stalder &lt;torin@daft.com&gt;</code>:<br>
<code>Bug#5172</code>; Package <code>perl</code>.


debian-devel@lists.debian.orgDarren Stalder &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


<strong>Acknowledgement sent</strong> to <code>Richard Kettlewell &lt;richard@greenend.org.uk&gt;</code>:<br>
New bug report received and forwarded.  Copy sent to <code>Darren Stalder &lt;torin@daft.com&gt;</code>.


Richard Kettlewell &lt;richard@greenend.org.uk&gt;

Sorry, this message was lost when this bug report was restored from a backup.


Received: (at submit) by bugs.debian.org; 30 Oct 1996 00:08:33 +0000
Received: (qmail 23033 invoked from smtpd); 30 Oct 1996 00:08:24 -0000
Received: from tlingit.elmail.co.uk (HELO post.elmail.co.uk) (193.122.233.1)
  by master.debian.org with SMTP; 30 Oct 1996 00:08:23 -0000
Received: from sfere.elmail.co.uk by post.elmail.co.uk
	id XAA25595 (ElectricMail-MESSAGE-2.1); Tue, 29 Oct 1996 23:58:26 GMT
Received: by sfere.elmail.co.uk
	id XAA01069 (ElectricMail-MESSAGE-2.1a-linux); Tue, 29 Oct 1996 23:41:33 GMT
From: Richard Kettlewell <richard@greenend.org.uk>
Message-Id: <8OtFoJ8Q1@sfere.greenend.org.uk>
Date: Tue, 29 Oct 96 23:41:33 +0000 (GMT)
To: submit@bugs.debian.org
Subject: stupid warning message in perl

Package: perl
Version: 5.003-2

`perl -w' issues a warning if you have any code after an "exec" call.
The code *will* be reached if the exec fails, so it's vital that it's
there, rather than being a likely programming error.

richard@sfere:richard$ src/watcher
Statement unlikely to be reached at src/watcher line 170.
(Maybe you meant system() when you said exec()?)
src/watcher: /etc/watcher.conf: No such file or directory
richard@sfere:richard$ 

-- 
Richard Kettlewell               http://www.elmail.co.uk/staff/richard/
       uk.legal: Why clog up newsgroups with shit when they are already
                 clogged with people from Whitby?
    Mike Corley: Well, why not? It's something to do, isn't it?



<strong>Information forwarded</strong> to <code>debian-devel@lists.debian.org, Darren Stalder &lt;torin@daft.com&gt;</code>:<br>
<code>Bug#5172</code>; Package <code>perl</code>.


debian-devel@lists.debian.orgDarren Stalder &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


<strong>Acknowledgement sent</strong> to <code>&quot;Darren/Torin/Who Ever...&quot; &lt;torin@daft.com&gt;</code>:<br>
Extra info received and forwarded to list.  Copy sent to <code>Darren Stalder &lt;torin@daft.com&gt;</code>.


&quot;Darren/Torin/Who Ever...&quot; &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


Received: (at submit) by bugs.debian.org; 30 Oct 1996 08:22:00 +0000
Received: (qmail 11061 invoked from smtpd); 30 Oct 1996 08:21:55 -0000
Received: from perv.daft.com (torin@204.122.30.2)
  by master.debian.org with SMTP; 30 Oct 1996 08:21:55 -0000
Received: (from torin@localhost) by perv.daft.com (8.7.6/8.6.12) id AAA24356; Wed, 30 Oct 1996 00:09:17 -0800
Sender: torin@perv.daft.com
To: Richard Kettlewell <richard@greenend.org.uk>
Cc: 5172@bugs.debian.org, submit@bugs.debian.org
Subject: Re: Bug#5172: stupid warning message in perl
References: <8OtFoJ8Q1@sfere.greenend.org.uk>
From: "Darren/Torin/Who Ever..." <torin@daft.com>
In-Reply-To: Richard Kettlewell's message of Tue, 29 Oct 96 23:41:33 +0000 (GMT)
Date: 30 Oct 1996 00:09:11 -0800
Message-ID: <87locoq3fc.fsf@perv.daft.com>
Lines: 35
X-Mailer: Red Gnus v0.52/XEmacs 19.14

-----BEGIN PGP SIGNED MESSAGE-----

Richard Kettlewell, in an immanent manifestation of deity, wrote:
>richard@sfere:richard$ src/watcher
>Statement unlikely to be reached at src/watcher line 170.
>(Maybe you meant system() when you said exec()?)
>src/watcher: /etc/watcher.conf: No such file or directory
>richard@sfere:richard$ 

Could you do two things:
1) Install the new perl and see if it still happens.
2) Give me a code sample to look at.

I have code like this and I don't get a warning.  I have the following
code that's run under 5.001-5.00307 and I don't get a stupid warning
message:
open(SENDMAIL, "|-") || exec "/usr/lib/sendmail",  "-oi", "-f", $from, $real_user || exit &EX_IOERR;

Darren
- -- 
<torin@daft.com> <http://www.daft.com/~torin> <torin@debian.org> <torin@io.com>
Darren Stalder/2608 Second Ave, @282/Seattle, WA 98121-1212/USA/+1-800-921-4996
@ Do you have your clothes on? I probably don't. Take yours off. Feel better. @
@ Sysadmin, webweaver, postmaster for hire.  C/Perl/CGI programmer and tutor. @

-----BEGIN PGP SIGNATURE-----
Version: 2.6.2
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface

iQCVAwUBMncNIo4wrq++1Ls5AQHebAP+Jskx59v3NmQ7E6Zx17pJ9Yvy8ZoJ0lnT
G856RB6GdKLEhxuXl1iXsYtytAsHm92PUrzIdDJYTRz2DeQ0AUssi1/HxdLf6fUw
LHNesL1B5ZrI8cU7iB1rrqs2DVnn1hvcUX39EBJVhgkJuwHnrDgVKThG8h7baWar
ylYAui96+Fg=
=/s9z
-----END PGP SIGNATURE-----



<strong>Information forwarded</strong> to <code>debian-devel@lists.debian.org, Darren Stalder &lt;torin@daft.com&gt;</code>:<br>
<code>Bug#5172</code>; Package <code>perl</code>.


debian-devel@lists.debian.orgDarren Stalder &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


<strong>Acknowledgement sent</strong> to <code>&quot;Darren/Torin/Who Ever...&quot; &lt;torin@daft.com&gt;</code>:<br>
Extra info received and forwarded to list.  Copy sent to <code>Darren Stalder &lt;torin@daft.com&gt;</code>.


&quot;Darren/Torin/Who Ever...&quot; &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


Received: (at 5172) by bugs.debian.org; 30 Oct 1996 08:22:00 +0000
Received: (qmail 11061 invoked from smtpd); 30 Oct 1996 08:21:55 -0000
Received: from perv.daft.com (torin@204.122.30.2)
  by master.debian.org with SMTP; 30 Oct 1996 08:21:55 -0000
Received: (from torin@localhost) by perv.daft.com (8.7.6/8.6.12) id AAA24356; Wed, 30 Oct 1996 00:09:17 -0800
Sender: torin@perv.daft.com
To: Richard Kettlewell <richard@greenend.org.uk>
Cc: 5172@bugs.debian.org, submit@bugs.debian.org
Subject: Re: Bug#5172: stupid warning message in perl
References: <8OtFoJ8Q1@sfere.greenend.org.uk>
From: "Darren/Torin/Who Ever..." <torin@daft.com>
In-Reply-To: Richard Kettlewell's message of Tue, 29 Oct 96 23:41:33 +0000 (GMT)
Date: 30 Oct 1996 00:09:11 -0800
Message-ID: <87locoq3fc.fsf@perv.daft.com>
Lines: 35
X-Mailer: Red Gnus v0.52/XEmacs 19.14

-----BEGIN PGP SIGNED MESSAGE-----

Richard Kettlewell, in an immanent manifestation of deity, wrote:
>richard@sfere:richard$ src/watcher
>Statement unlikely to be reached at src/watcher line 170.
>(Maybe you meant system() when you said exec()?)
>src/watcher: /etc/watcher.conf: No such file or directory
>richard@sfere:richard$ 

Could you do two things:
1) Install the new perl and see if it still happens.
2) Give me a code sample to look at.

I have code like this and I don't get a warning.  I have the following
code that's run under 5.001-5.00307 and I don't get a stupid warning
message:
open(SENDMAIL, "|-") || exec "/usr/lib/sendmail",  "-oi", "-f", $from, $real_user || exit &EX_IOERR;

Darren
- -- 
<torin@daft.com> <http://www.daft.com/~torin> <torin@debian.org> <torin@io.com>
Darren Stalder/2608 Second Ave, @282/Seattle, WA 98121-1212/USA/+1-800-921-4996
@ Do you have your clothes on? I probably don't. Take yours off. Feel better. @
@ Sysadmin, webweaver, postmaster for hire.  C/Perl/CGI programmer and tutor. @

-----BEGIN PGP SIGNATURE-----
Version: 2.6.2
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface

iQCVAwUBMncNIo4wrq++1Ls5AQHebAP+Jskx59v3NmQ7E6Zx17pJ9Yvy8ZoJ0lnT
G856RB6GdKLEhxuXl1iXsYtytAsHm92PUrzIdDJYTRz2DeQ0AUssi1/HxdLf6fUw
LHNesL1B5ZrI8cU7iB1rrqs2DVnn1hvcUX39EBJVhgkJuwHnrDgVKThG8h7baWar
ylYAui96+Fg=
=/s9z
-----END PGP SIGNATURE-----



<strong>Information forwarded</strong> to <code>debian-devel@lists.debian.org, Darren Stalder &lt;torin@daft.com&gt;</code>:<br>
<code>Bug#5172</code>; Package <code>perl</code>.


debian-devel@lists.debian.orgDarren Stalder &lt;torin@daft.com&gt;

Sorry, this message was lost when this bug report was restored from a backup.


<strong>Acknowledgement sent</strong> to <code>Richard Kettlewell &lt;richard@greenend.org.uk&gt;</code>:<br>
Extra info received and forwarded to list.  Copy sent to <code>Darren Stalder &lt;torin@daft.com&gt;</code>.


Richard Kettlewell &lt;richard@greenend.org.uk&gt;

Sorry, this message was lost when this bug report was restored from a backup.


Received: (at 5172) by bugs.debian.org; 30 Oct 1996 18:57:27 +0000
Received: (qmail 18347 invoked from smtpd); 30 Oct 1996 18:57:23 -0000
Received: from tlingit.elmail.co.uk (HELO post.elmail.co.uk) (193.122.233.1)
  by master.debian.org with SMTP; 30 Oct 1996 18:57:22 -0000
Received: from sfere.elmail.co.uk by post.elmail.co.uk
	id SAA18590 (ElectricMail-MESSAGE-2.1); Wed, 30 Oct 1996 18:45:51 GMT
Received: by sfere.elmail.co.uk
	id SAA28326 (ElectricMail-MESSAGE-2.1a-linux); Wed, 30 Oct 1996 18:34:12 GMT
From: Richard Kettlewell <richard@greenend.org.uk>
Message-Id: <cOtV-z6Wd0@sfere.greenend.org.uk>
Date: Wed, 30 Oct 96 18:34:10 +0000 (GMT)
To: "Darren/Torin/Who Ever..." <torin@daft.com>
Cc: 5172@bugs.debian.org
Subject: Re: Bug#5172: stupid warning message in perl
In-Reply-To: <87locoq3fc.fsf@perv.daft.com>
References: <8OtFoJ8Q1@sfere.greenend.org.uk>
        <87locoq3fc.fsf@perv.daft.com>

>>richard@sfere:richard$ src/watcher
>>Statement unlikely to be reached at src/watcher line 170.
>>(Maybe you meant system() when you said exec()?)
>>src/watcher: /etc/watcher.conf: No such file or directory
>>richard@sfere:richard$ 
>
>Could you do two things:
>1) Install the new perl and see if it still happens.

I'll get onto that shortly.  (Wrong side of a dialup link.)

>2) Give me a code sample to look at.

Here's the one that was producing the warnings.

            if($pid == 0)
            {
                # in the child...
                $( = $group{$service};
                # FIXME: need to do initgroups or equivalent
                $< = $user{$service};
                exec $command{$service};
                # log the error
                syslog("err", "$service: $command{$service}: $!");
                exit(127);
            }

-- 
Richard Kettlewell               http://www.elmail.co.uk/staff/richard/
       uk.legal: Why clog up newsgroups with shit when they are already
                 clogged with people from Whitby?
    Mike Corley: Well, why not? It's something to do, isn't it?