From mym@gbr.msd.ray.com

hi,
  is there a bug with perl5 to allow it to update files that are
read only?? I will appreciate if you can send me an explanation of why
we get this behavior.

I try a script​:
  #!/local/bin/perl -wpi
  s/1997/1997aaaa/g;
 

as​:
/home/mym/renamedate.perl /home/mym/z*
and it changed READ ONLY files.

Attached is the output of 'perl -V'

thanks,
marlyn (x1-3288)

  ___*__
  /( 0 0)\
****************************oooO**(_)**Oooo****************************
Marlyn Y. Beauchesne Mail Stop​: S1E-K123
Software Engineer (office) S1E-K113
  GBR-P / GBR-EMD (phone) 781-999-3288 7-221-3288
Raytheon Electronic Systems (fax) 781-999-2866
180 Hartwell Road .oooO (email) mym@​gbr.msd.ray.com
Bedford, MA 01730-2498 ( ) Oooo. UPR - Mayaguez Campus
******************************\ (****( )*****************************
  \_) ) /
  (_/
  "My views do not necessarily reflect the views of my employer."

From mym@gbr.msd.ray.com

Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration​:
  Platform​:
  osname=hpux, osvers=10, archname=PA-RISC1.1
  uname='hp-ux gbrhpi b.10.01 a 9000715 2006558425 two-user license '
  hint=recommended, useposix=true, d_sigaction=define
  bincompat3=n useperlio=define d_sfio=undef
  Compiler​:
  cc='cc', optimize='+O2', gccversion=
  cppflags='-D_HPUX_SOURCE -Aa'
  ccflags ='-D_HPUX_SOURCE -Aa -DPERL_EMERGENCY_SBRK -DPACK_MALLOC -DTWO_POT_OPTIMIZE'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  voidflags=15, castflags=0, d_casti32=define, d_castneg=define
  intsize=4, alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='ld', ldflags =''
  libpth=/usr/local/lib /usr/lib/pa1.1 /lib /usr/lib /usr/ccs/lib
  libs=-lnet -lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt
  libc=/lib/libc.sl, so=sl
  useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred '
  cccdlflags='+z', lddlflags='-b'

Characteristics of this binary (from libperl)​:
  Built under hpux
  Compiled at Jun 19 1998 14​:12​:34
  @​INC​:
  /local/perl5/lib/PA-RISC1.1/5.00404
  /local/perl5/lib
  /local/perl5/lib/site_perl/PA-RISC1.1
  /local/perl5/lib/site_perl
  .

From [Unknown Contact. See original ticket]

Marlyn Y Beauchesne {83917} wrote​:

hi,
is there a bug with perl5 to allow it to update files that are
read only?? I will appreciate if you can send me an explanation of why
we get this behavior.

I try a script​:
#!/local/bin/perl -wpi
s/1997/1997aaaa/g;

as​:
/home/mym/renamedate.perl /home/mym/z*
and it changed READ ONLY files.

Attached is the output of 'perl -V'

thanks,
marlyn (x1-3288)

the perlrun page implys that there are no permission checks before the
*renaming*/*replacing* of files. if you dont want them modified, they
should be in a non writable directory.

Jay Cox
--
As crazy as hauling timber into the woods.
  -- Quintus Horatius Flaccus (Horace)