PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: "WORENKLEIN, David, GCM" <David dot Worenklein at gcm dot com>
Subject: Perl 5.6.1 under XP crashes (SEGV) when calling dbpoll(undef,0)
Date: Apr 10 2002 4:14PM

I am running ActivePerl 631 (Perl 5.6.1), and sybperl 2.14.  Perl build
details are at the end.
 
Sybase::DBlib::dbpoll(c:/Perl/lib/Carp.pm:97):
97:         { local $@; require Carp::Heavy; }  # XXX fix require to not
clear $@?
Sybase::DBlib::dbpoll(c:/Perl/lib/Carp.pm:97):
97:         { local $@; require Carp::Heavy; }  # XXX fix require to not
clear $@?
Sybase::DBlib::dbpoll(c:/Perl/lib/Carp.pm:97):
97:         { local $@; require Carp::Heavy; }  # XXX fix require to not
clear $@?
Sybase::DBlib::dbpoll(c:/Perl/lib/Carp.pm:98):
98:         goto &longmess_heavy;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:30):
30:         return @_ if ref $_[0];
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:31):
31:         my $error = join '', @_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:32):
32:         my $mess = "";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:33):
33:         my $i = 1 + $CarpLevel;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:34):
34:         my ($pack,$file,$line,$sub,$hargs,$eval,$require);
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:35):
35:         my (@a);
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:41):
41:             ($pack,$file,$line,$sub,$hargs,undef,$eval,$require) = @a;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:56):
56:             if ($error =~ m/\n\z/) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:61):
61:                 if (defined $eval) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:77):
77:                 if ($hargs) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:79):
79:                     @a = @DB::args; # must get local copy of args
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:81):
81:                     if ($MaxArgNums and @a > $MaxArgNums) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:91):
91:                             $_ .= '';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:92):
92:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:108):
108:                    $sub .= '(' . join(', ', @a) . ')';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:111):
111:                $mess .= "\t$sub " if $error eq "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:112):
112:                $mess .= "$error at $file line $line";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:113):
113:                if (defined &Thread::tid) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:117):
117:                $mess .= "\n";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:122):
122:            $error = "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:41):
41:             ($pack,$file,$line,$sub,$hargs,undef,$eval,$require) = @a;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:56):
56:             if ($error =~ m/\n\z/) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:61):
61:                 if (defined $eval) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:77):
77:                 if ($hargs) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:79):
79:                     @a = @DB::args; # must get local copy of args
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:81):
81:                     if ($MaxArgNums and @a > $MaxArgNums) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:95):
95:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:97):
97:                             substr($_,$MaxArgLen) = '...'
98:                                 if $MaxArgLen and $MaxArgLen < length;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:108):
108:                    $sub .= '(' . join(', ', @a) . ')';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:111):
111:                $mess .= "\t$sub " if $error eq "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:112):
112:                $mess .= "$error at $file line $line";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:113):
113:                if (defined &Thread::tid) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:117):
117:                $mess .= "\n";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:122):
122:            $error = "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:41):
41:             ($pack,$file,$line,$sub,$hargs,undef,$eval,$require) = @a;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:56):
56:             if ($error =~ m/\n\z/) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:61):
61:                 if (defined $eval) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:77):
77:                 if ($hargs) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:79):
79:                     @a = @DB::args; # must get local copy of args
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:81):
81:                     if ($MaxArgNums and @a > $MaxArgNums) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:91):
91:                             $_ .= '';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:92):
92:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:95):
95:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:97):
97:                             substr($_,$MaxArgLen) = '...'
98:                                 if $MaxArgLen and $MaxArgLen < length;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:95):
95:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:97):
97:                             substr($_,$MaxArgLen) = '...'
98:                                 if $MaxArgLen and $MaxArgLen < length;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:95):
95:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:97):
97:                             substr($_,$MaxArgLen) = '...'
98:                                 if $MaxArgLen and $MaxArgLen < length;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:91):
91:                             $_ .= '';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:92):
92:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:95):
95:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:97):
97:                             substr($_,$MaxArgLen) = '...'
98:                                 if $MaxArgLen and $MaxArgLen < length;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:91):
91:                             $_ .= '';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:92):
92:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:108):
108:                    $sub .= '(' . join(', ', @a) . ')';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:111):
111:                $mess .= "\t$sub " if $error eq "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:112):
112:                $mess .= "$error at $file line $line";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:113):
113:                if (defined &Thread::tid) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:117):
117:                $mess .= "\n";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:122):
122:            $error = "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:41):
41:             ($pack,$file,$line,$sub,$hargs,undef,$eval,$require) = @a;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:56):
56:             if ($error =~ m/\n\z/) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:61):
61:                 if (defined $eval) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:77):
77:                 if ($hargs) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:79):
79:                     @a = @DB::args; # must get local copy of args
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:81):
81:                     if ($MaxArgNums and @a > $MaxArgNums) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:88):
88:                         $_ = "undef", next unless defined $_;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:89):
89:                         if (ref $_) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:91):
91:                             $_ .= '';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:92):
92:                             s/'/\\'/g;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:101):
101:                        $_ = "'$_'" unless /^-?[\d.]+$/;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:103):
103:
s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:105):
105:                        s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:86):
86:                     for (@a) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:108):
108:                    $sub .= '(' . join(', ', @a) . ')';
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:111):
111:                $mess .= "\t$sub " if $error eq "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:112):
112:                $mess .= "$error at $file line $line";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:113):
113:                if (defined &Thread::tid) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:117):
117:                $mess .= "\n";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:122):
122:            $error = "called";
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:39):
39:         while (do { { package DB; @a = caller($i++) } } ) {
Carp::longmess_heavy(c:/Perl/lib/Carp/Heavy.pm:124):
124:        $mess || $error;
Signal SEGV at ...
 
 
   Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=define
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cl', ccflags ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE
-DNO_STRICT -DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTEX
T -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX',
    optimize='-O1 -MD -DNDEBUG',
    cppflags='-DWIN32'
    ccversion='', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release
-libpath:"C:\Perl\lib\CORE"  -machine:x86'
    libpth="C:\PROGRA~1\MICROS~4\VC98\LIB"
"C:\PROGRA~1\MICROS~4\VC98\MFC\LIB" "C:\Program Files\Microsoft Visual
Studio
 .NET\FramorkSDK\Lib" "C:\Program Files\Microsoft Visual Studio
..NET\FrameworkSDK\Lib\" "R:\sybase\12.0\OCS-12_0\lib" "C
:\Perl\lib\CORE"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib
oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib
version.lib odbc32.lib odbccp32.lib msvcrt.lib
    perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.
lib oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib
version.lib odbc32.lib odbccp32.lib msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-libpath:"C:\Perl\lib\CORE"  -machine:x86'
 
 
Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT
PERL_IMPLICIT_SYS
  Locally applied patches:
        ActivePerl Build 631
  Built under MSWin32
  Compiled at Jan  2 2002 17:16:22
  %ENV:
 
PERL5LIB="\\GSAMB101\nfs_mounts\dev_apps/lib/perl;\\GSAMB101\nfs_mounts\dev
_apps/lib/perl5"
  @INC:
    \\GSAMB101\nfs_mounts\dev_apps/lib/perl
    \\GSAMB101\nfs_mounts\dev_apps/lib/perl5
    c:/Perl/lib
    R:/Perl/5.6.1/site/lib
    c:/Perl/site/lib
    .