Your message dated Sun, 16 Oct 2005 19:53:39 +0000
with message-id <[EMAIL PROTECTED]>
and subject line 198945 is fixed in 5.8.7-5
has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Debian bug tracking system administrator
(administrator, Debian Bugs database)
--------------------------------------
Received: (at submit) by bugs.debian.org; 26 Jun 2003 20:40:22 +0000
>From [EMAIL PROTECTED] Thu Jun 26 15:40:22 2003
Return-path: <[EMAIL PROTECTED]>
Received: from tx.symonds.net [64.246.28.87]
by master.debian.org with esmtp (Exim 3.35 1 (Debian))
id 19VdXa-0002ue-00; Thu, 26 Jun 2003 15:40:22 -0500
Received: from tc218-187-80-225.2-7.pl.apol.com.tw ([218.187.80.225]
helo=jidanni.org)
by tx.symonds.net with asmtp (Exim 4.04)
id 19VdXX-0007px-00
for [EMAIL PROTECTED]; Thu, 26 Jun 2003 16:40:21 -0400
Received: from jidanni by jidanni.org with local (Exim 3.36 #1 (Debian))
id 19Vcz0-0000tI-00; Fri, 27 Jun 2003 04:04:38 +0800
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: Dan Jacobson <[EMAIL PROTECTED]>
To: Debian Bug Tracking System <[EMAIL PROTECTED]>
Subject: perl: a2p blows {$1++;print}
X-Mailer: reportbug 2.10
Date: Fri, 27 Jun 2003 04:04:37 +0800
Message-Id: <[EMAIL PROTECTED]>
Delivered-To: [EMAIL PROTECTED]
X-Spam-Status: No, hits=-6.0 required=4.0
tests=BAYES_10,HAS_PACKAGE
version=2.53-bugs.debian.org_2003_06_18
X-Spam-Level:
X-Spam-Checker-Version: SpamAssassin 2.53-bugs.debian.org_2003_06_18
(1.174.2.15-2003-03-30-exp)
Package: perl
Version: 5.8.0-15
Severity: important
File: /usr/bin/a2p
Tags: upstream
$ echo '{$1++;print}'|a2p|tee /tmp/b
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$\ = "\n"; # set output record separator
while (<>) {
chomp; # strip record separator
@Fld = split(' ', $_, 9999);
$Fld[1]++;
print $_;
}
$ echo 3 5|awk '{$1++;print}'
4 5
$ echo 3 5|perl /tmp/b
3 5
-- System Information:
Debian Release: testing/unstable
Architecture: i386
Kernel: Linux debian 2.4.20-k7 #1 Tue Jan 14 00:29:06 EST 2003 i686
Locale: LANG=zh_TW.Big5, LC_CTYPE=zh_TW.Big5
Versions of packages perl depends on:
ii libc6 2.3.1-10 GNU C Library: Shared libraries an
ii libdb4.0 4.0.14-1 Berkeley v4.0 Database Libraries [
ii libgdbmg1 1.7.3-27.1 GNU dbm database routines (runtime
ii perl-base 5.8.0-15 The Pathologically Eclectic Rubbis
ii perl-modules 5.8.0-18 Core Perl modules.
-- no debconf information
---------------------------------------
Received: (at 198945-done) by bugs.debian.org; 17 Oct 2005 04:21:12 +0000
>From [EMAIL PROTECTED] Sun Oct 16 21:21:12 2005
Return-path: <[EMAIL PROTECTED]>
Received: from ms-smtp-02.texas.rr.com (ms-smtp-02-eri0.texas.rr.com)
[24.93.47.41]
by spohr.debian.org with esmtp (Exim 3.36 1 (Debian))
id 1ERMUq-0007KK-00; Sun, 16 Oct 2005 21:21:12 -0700
Received: from crustytoothpaste.ath.cx (cpe-24-160-68-181.houston.res.rr.com
[24.160.68.181])
by ms-smtp-02-eri0.texas.rr.com (8.12.10/8.12.7) with ESMTP id
j9H4L8e1029974
for <[EMAIL PROTECTED]>; Sun, 16 Oct 2005 23:21:09 -0500 (CDT)
Received: from stonewall.crustytoothpaste.ath.cx ([192.168.2.253])
(authenticated bits=0)
by crustytoothpaste.ath.cx (8.13.5/8.13.5/Debian-3) with ESMTP id
j9H4OmWd012579
for <[EMAIL PROTECTED]>; Mon, 17 Oct 2005 04:24:48 GMT
From: "Brian M. Carlson" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: 198945 is fixed in 5.8.7-5
Date: Sun, 16 Oct 2005 19:53:39 +0000
User-Agent: KMail/1.8.2
MIME-Version: 1.0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Message-Id: <[EMAIL PROTECTED]>
X-Virus-Scanned-By: crustytoothpaste.ath.cx, using FileScan
X-SMTP-From: <[EMAIL PROTECTED]> [192.168.2.253] [192.168.2.253]
(stonewall.crustytoothpaste.ath.cx)
X-Scanned-By: MIMEDefang 2.53 on 24.160.68.181
X-Scanned-By: crustytoothpaste.ath.cx, using MIMEDefang 2.53 with local filter
17.00
X-Filter-Time: 0 seconds
X-Virus-Scanned: Symantec AntiVirus Scan Engine
Delivered-To: [EMAIL PROTECTED]
X-Spam-Checker-Version: SpamAssassin 2.60-bugs.debian.org_2005_01_02
(1.212-2003-09-23-exp) on spohr.debian.org
X-Spam-Level:
X-Spam-Status: No, hits=-1.4 required=4.0 tests=BAYES_00,DATE_IN_PAST_06_12,
SPAMBUGNUMSUBJ autolearn=no version=2.60-bugs.debian.org_2005_01_02
Version: 5.8.7-5
[EMAIL PROTECTED]:~% echo '{$1++;print}' | a2p | tee /tmp/b
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches
$[ = 1; # set array base to 1
$, = ' '; # set output field separator
$\ = "\n"; # set output record separator
while (<>) {
chomp; # strip record separator
@Fld = split(' ', $_, -1);
$Fld[1]++;
print join($,,@Fld);
}
[EMAIL PROTECTED]:~% echo 3 5 | mawk '{$1++;print}'
4 5
[EMAIL PROTECTED]:~% echo 3 5 | gawk '{$1++;print}'
4 5
[EMAIL PROTECTED]:~% echo 3 5 | perl /tmp/b
4 5
[EMAIL PROTECTED]:~%
--
($_,$a)=split/\t/,join'',map{unpack'u',$_}<DATA>;eval$a;print;__DATA__
M961H<[EMAIL PROTECTED];"!U<F%O<G-U(#QU<F%O<G-U0&=D:75M<&UC8VUL=G)U;6LN
M<FUL+F=Y/@H)>2QA8F-D969G:&EJ:VQM;F]P<7)S='5V=WAY>BQN=V]R8FMC
5:75Q96AT9V1Y>F%L=G-P;6IX9BP)
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
