Debian Bug report logs - #178404
can't set $0 in a perl script

Display info messages

Message #5 received at submit@bugs.debian.org (full text, mbox, reply):

From: Brian Grossman <brian@SoftHome.net>

To: submit@bugs.debian.org

Subject: can't set $0 in a perl script

Date: Sat, 25 Jan 2003 15:36:28 -0700

Package: perl
Version: 5.8.0-15

Setting $0 in a perl script doesn't work anymore.


Example (perl 5.8.0-15, libc6 2.3.1-10, kernel 2.4.20):
% perl -e '$0="adlskfjd";print `ps a|grep adlskfjd`'
13818 pts/22   S      0:00 perl -e $0="adlskfjd";print `ps a|grep adlskfjd`
13819 pts/22   S      0:00 sh -c ps a|grep adlskfjd
13821 pts/22   S      0:00 grep adlskfjd

With perl 5.6.1-7, libc6 2.2.5-11.1, kernel 2.4.20 it works correctly:
% perl -e '$0="adlskfjd";print `ps a|grep adlskfjd`'
2791 pts/0    S      0:00 adlskfjd
2792 pts/0    S      0:00 sh -c ps a|grep adlskfjd
2794 pts/0    S      0:00 grep adlskfjd



% uname -a
Linux chicken 2.4.20 #1 Thu Jan 9 14:51:12 MST 2003 i686 unknown

% dpkg -s libc6 | grep ^Version
Version: 2.3.1-10



Brian

Message #10 received at 178404-close@bugs.debian.org (full text, mbox, reply):

From: Brendan O'Dea <bod@debian.org>

To: 178404-close@bugs.debian.org

Subject: Bug#178404: fixed in perl 5.8.0-16

Date: Sun, 16 Feb 2003 08:17:38 -0500

We believe that the bug you reported is fixed in the latest version of
perl, which is due to be installed in the Debian FTP archive:

libcgi-fast-perl_5.8.0-16_all.deb
  to pool/main/p/perl/libcgi-fast-perl_5.8.0-16_all.deb
libperl-dev_5.8.0-16_sparc.deb
  to pool/main/p/perl/libperl-dev_5.8.0-16_sparc.deb
libperl5.8_5.8.0-16_sparc.deb
  to pool/main/p/perl/libperl5.8_5.8.0-16_sparc.deb
perl-base_5.8.0-16_sparc.deb
  to pool/main/p/perl/perl-base_5.8.0-16_sparc.deb
perl-debug_5.8.0-16_sparc.deb
  to pool/main/p/perl/perl-debug_5.8.0-16_sparc.deb
perl-doc_5.8.0-16_all.deb
  to pool/main/p/perl/perl-doc_5.8.0-16_all.deb
perl-modules_5.8.0-16_all.deb
  to pool/main/p/perl/perl-modules_5.8.0-16_all.deb
perl-suid_5.8.0-16_sparc.deb
  to pool/main/p/perl/perl-suid_5.8.0-16_sparc.deb
perl_5.8.0-16.diff.gz
  to pool/main/p/perl/perl_5.8.0-16.diff.gz
perl_5.8.0-16.dsc
  to pool/main/p/perl/perl_5.8.0-16.dsc
perl_5.8.0-16_sparc.deb
  to pool/main/p/perl/perl_5.8.0-16_sparc.deb



A summary of the changes between this version and the previous one is
attached.

Thank you for reporting the bug, which will now be closed.  If you
have further comments please address them to 178404@bugs.debian.org,
and the maintainer will reopen the bug report if appropriate.

Debian distribution maintenance software
pp.
Brendan O'Dea <bod@debian.org> (supplier of updated perl package)

(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing ftpmaster@debian.org)


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Format: 1.7
Date: Sun, 16 Feb 2003 22:16:19 +1100
Source: perl
Binary: perl-base libcgi-fast-perl libperl-dev perl-debug perl-modules perl libperl5.8 perl-suid perl-doc
Architecture: source sparc all
Version: 5.8.0-16
Distribution: unstable
Urgency: low
Maintainer: Brendan O'Dea <bod@debian.org>
Changed-By: Brendan O'Dea <bod@debian.org>
Description: 
 libcgi-fast-perl - CGI::Fast Perl module.
 libperl-dev - Perl library: development files.
 libperl5.8 - Shared Perl library.
 perl       - Larry Wall's Practical Extraction and Report Language.
 perl-base  - The Pathologically Eclectic Rubbish Lister.
 perl-debug - Debug-enabled Perl interpreter.
 perl-doc   - Perl documentation.
 perl-modules - Core Perl modules.
 perl-suid  - Runs setuid Perl scripts.
Closes: 164717 177458 178404 180260 180591
Changes: 
 perl (5.8.0-16) unstable; urgency=low
 .
   * Add conflict on earlier versions of perl-doc to perl (closes: #180260).
   * Fix build issue with localised cpp output (closes: #177458).
   * Backport upstream changes to make $0 writable (closes: #178404).
   * Backport upstream changes to remove implicit utf8 I/O (closes: #164717).
   * Apply upstream fix for debugging speed issue (closes: #180591,
     thanks to Chip Salzenberg for the patch).
Files: 
 7b2f4f35002eee4012c35744b4547be4 713 interpreters standard perl_5.8.0-16.dsc
 8b997f04bd62e00d961b22d799361d93 76252 interpreters standard perl_5.8.0-16.diff.gz
 d9012f54bdeb69f741c3b58c673c0ea5 33684 interpreters extra libcgi-fast-perl_5.8.0-16_all.deb
 9fad2060c8e61298a22588e5a352b028 5609124 doc optional perl-doc_5.8.0-16_all.deb
 d7266893787f70e227b67ae1fdcb3766 1947428 interpreters standard perl-modules_5.8.0-16_all.deb
 bda907145587ba66d5d91b276fb54fd4 261082 base required perl-base_5.8.0-16_sparc.deb
 292ff1567667efa61a3483f00ed0336f 3964726 interpreters optional perl-debug_5.8.0-16_sparc.deb
 73e9fb6b79dda18238d12be886a0f208 28932 interpreters optional perl-suid_5.8.0-16_sparc.deb
 f7ef3fb493183279378e92a4c10ad83a 475720 libs required libperl5.8_5.8.0-16_sparc.deb
 1c3a5bc9ff8b02c43ae63dd3860420a5 553476 devel optional libperl-dev_5.8.0-16_sparc.deb
 084b37a1b2e7e519d54176e7063f85be 4276438 interpreters standard perl_5.8.0-16_sparc.deb

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+T43N8NyOALKMWZURAqMhAKDj+9MStDUV/ec3nvnGZSm7x0oSOACg6vSp
rlbB3V9QXO3y8n2UWiQFWgI=
=v7S8
-----END PGP SIGNATURE-----

Send a report that this bug log contains spam.