From lichtin@bivio.com

lib/ExtUtils/Install.pm

139d138
< umask $umask unless $Is_VMS;
145a145

umask $umask unless $Is\_VMS;

Site configuration information for perl 5.00503​:

Configured by lichtin at Sun Aug 15 14​:25​:54 MEST 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=linux, osvers=2.2.5-15, archname=i686-linux
  uname='linux diana.oanda.com 2.2.5-15 #1 mon apr 19 23​:00​:46 edt 1999 i686 unknown '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)
  cppflags='-Dbool=char -DHAS_BOOL'
  ccflags ='-Dbool=char -DHAS_BOOL'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches​:

@​INC for perl 5.00503​:
  /usr/lib/perl5/5.00503/i686-linux
  /usr/lib/perl5/5.00503
  /usr/lib/perl5/site_perl/5.005/i686-linux
  /usr/lib/perl5/site_perl/5.005
  .

Environment for perl 5.00503​:
  HOME=/home/lichtin
  LANG (unset)
  LANGUAGE (unset)
  LOGDIR (unset)
  PATH=/usr/bin​:/usr/local/bin​:/bin​:/usr/X11R6/bin​:/home/lichtin/bin
  PERL_BADLANG (unset)
  PERL_MM_OPT=PREFIX=/home/lichtin INSTALLMAN1DIR=/home/lichtin/man/man1
  SHELL=/bin/bash

From @jhi

Martin Lichtin writes​:

-----------------------------------------------------------------
Umask is set back before writing .packlist

lib/ExtUtils/Install.pm

139d138
< umask $umask unless $Is_VMS;
145a145

umask $umask unless $Is\_VMS;

-----------------------------------------------------------------

Could you please resubmit your patch redone with diff -u or diff -c?
Also mentioning to which perl version it is applicable would be nice.

--
$jhi++; # http​://www.iki.fi/jhi/
  # There is this special biologist word we use for 'stable'.
  # It is 'dead'. -- Jack Cohen

From [Unknown Contact. See original ticket]

Jarkko Hietaniemi wrote​:

Could you please resubmit your patch redone with diff -u or diff -c?

*** Install.pm 1999/08/24 21​:16​:58 1.1
--- Install.pm 1999/08/28 22​:44​:51 1.2
***************
*** 136,148 ****
  }, ".");
  chdir($cwd) or Carp​::croak("Couldn't chdir to $cwd​: $!");
  }
- umask $umask unless $Is_VMS;
  if ($pack{'write'}) {
  $dir = dirname($pack{'write'});
  mkpath($dir,0,0755);
  print "Writing $pack{'write'}\n";
  $packlist->write($pack{'write'});
  }
  }

  sub directory_not_empty ($) {
--- 136,148 ----
  }, ".");
  chdir($cwd) or Carp​::croak("Couldn't chdir to $cwd​: $!");
  }
  if ($pack{'write'}) {
  $dir = dirname($pack{'write'});
  mkpath($dir,0,0755);
  print "Writing $pack{'write'}\n";
  $packlist->write($pack{'write'});
  }
+ umask $umask unless $Is_VMS;
  }

  sub directory_not_empty ($) {

Also mentioning to which perl version it is applicable would be nice.

perlbug appends this info to the message, here it is again​:

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=linux, osvers=2.2.5-15, archname=i686-linux
  uname='linux diana.oanda.com 2.2.5-15 #1 mon apr 19 23​:00​:46 edt 1999 i686 unknown '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)
  cppflags='-Dbool=char -DHAS_BOOL'
  ccflags ='-Dbool=char -DHAS_BOOL'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Built under linux
  Compiled at Aug 15 1999 14​:27​:34
  %ENV​:
  PERL_MM_OPT="PREFIX=/home/lichtin INSTALLMAN1DIR=/home/lichtin/man/man1"
  @​INC​:
  /usr/lib/perl5/5.00503/i686-linux
  /usr/lib/perl5/5.00503
  /usr/lib/perl5/site_perl/5.005/i686-linux
  /usr/lib/perl5/site_perl/5.005
  .

From @jhi

Martin Lichtin writes​:

Also mentioning to which perl version it is applicable would be nice.

perlbug appends this info to the message, here it is again​:

Oops, sorry, I blame my flu for not being able to scroll the whole
message all the way to its end... Thanks for the patch.

--
$jhi++; # http​://www.iki.fi/jhi/
  # There is this special biologist word we use for 'stable'.
  # It is 'dead'. -- Jack Cohen

From [Unknown Contact. See original ticket]

Martin Lichtin writes​:

Also mentioning to which perl version it is applicable
would be nice.

perlbug appends this info to the message, here it is again​:

Oops, sorry, I blame my flu for not being able to scroll the whole
message all the way to its end... Thanks for the patch.

jhi

I'm glad someone else has flu, I thought it was only my programs which had
bugs :-)

Drip, drip...

Ciao
Richard Foley

richard@​rfi.net
"Ciao" - (shorter than 'Aufwiedersehen' :-)