CHECK{}, INIT{} in sitecustomize.pl

# New Ticket Created by  Peter Dintelmann 
# Please include the string:  [perl #45627]
# in the subject line of all future correspondence about
this issue. 
# <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=45627 >


This is a bug report for perl from Peter.Dintelmanndresdner-bank.com,
generated with the help of perlbug 1.36 running under perl
5.10.0.

CHECK and INIT blocks in sitecustomize.pl
seem to be executed after runtime.

    $ cat
/opt/perl32blead/lib/site_perl/5.10.0/sitecustomize.pl
    BEGIN  { warn "beginn" }
    INIT   { warn "initn"  }
    CHECK  { warn "checkn" }
    END    { warn "endn"   }
    warn "runn";

    $ /opt/perl32blead/bin/perl5.10.0 -e1
    begin
    run
    check
    init
    end

---
Flags:
    category=core
    severity=low
---
Site configuration information for perl 5.10.0:

Configured by p013176 at Fri Sep 21 11:05:56 MEST 2007.

Summary of my perl5 (revision 5 version 10 subversion 0
patch 31937) configuration:
  Platform:
    osname=solaris, osvers=2.9,
archname=sun4-solaris-thread-multi-64int
    uname='sunos oikbm03 5.9 generic_118558-28 sun4u sparc
sunw,ultra-5_10 '
    config_args='-Dprefix=/opt/perl32blead
-Uinstallusrbinperl -Dcc=gcc -Doptimize=-O2
-Aldflags=-R/usr/local/lib -Duseshrplib -Duseperlio
-Dusethreads -Duselargefiles -Duse64bitint
-Dusesitecustomize -des'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define,
usesocks=undef
    use64bitint=define, use64bitall=undef,
uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-D_REENTRANT -fno-strict-aliasing
-pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-D_REENTRANT -fno-strict-aliasing -pipe
-I/usr/local/include'
    ccversion='', gccversion='3.4.2',
gccosandvers='solaris2.9'
    intsize=4, longsize=4, ptrsize=4, doublesize=8,
byteorder=87654321
    d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=16
    ivtype='long long', ivsize=8, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -R/usr/local/lib -L/usr/local/lib
'
    libpth=/usr/local/lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -lgdbm -ldl -lm -lpthread -lc
    perllibs=-lsocket -lnsl -ldl -lm -lpthread -lc
    libc=/lib/libc.so, so=so, useshrplib=true,
libperl=libperl.so
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='  -R
/opt/perl32blead/lib/5.10.0/sun4-solaris-thread-multi-64int/
CORE'
    cccdlflags='-fPIC', lddlflags='-G -R/usr/local/lib
-L/usr/local/lib'

Locally applied patches:
    DEVEL

---
INC
for perl 5.10.0:
   
/opt/perl32blead/lib/5.10.0/sun4-solaris-thread-multi-64int
    /opt/perl32blead/lib/5.10.0
   
/opt/perl32blead/lib/site_perl/5.10.0/sun4-solaris-thread-mu
lti-64int
    /opt/perl32blead/lib/site_perl/5.10.0
    .

---
Environment for perl 5.10.0:
    HOME=/export/home/p013176
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/sbin/:/usr/bin/:/usr/ccs/bin/:/usr/local/bin/
    PERL_BADLANG (unset)
    SHELL=/usr/bin/bash

Peter Dintelmann (via RT) wrote:
> # New Ticket Created by  Peter Dintelmann 
> # Please include the string:  [perl #45627]
> # in the subject line of all future correspondence
about this issue. 
> # <URL: h
ttp://rt.perl.org/rt3/Ticket/Display.html?id=45627 >
> 
> 
> This is a bug report for perl from Peter.Dintelmanndresdner-bank.com,
> generated with the help of perlbug 1.36 running under
perl 5.10.0.
> 
> CHECK and INIT blocks in sitecustomize.pl
> seem to be executed after runtime.
> 
>     $ cat
/opt/perl32blead/lib/site_perl/5.10.0/sitecustomize.pl
>     BEGIN  { warn "beginn" }
>     INIT   { warn "initn"  }
>     CHECK  { warn "checkn" }
>     END    { warn "endn"   }
>     warn "runn";
> 
>     $ /opt/perl32blead/bin/perl5.10.0 -e1
>     begin
>     run
>     check
>     init
>     end

Confirmed  31940 on OS X


-- 
Ahh email, my old friend.  Do you know that revenge is a
dish that is best
served cold?  And it is very cold on the Internet!