Hi guys, forget this. There was an $ON ERROR in the procedure... So the $status was that of the on error branch. Arghh.
Michael 8/27/03 00:15:48, Michael Lemke <[EMAIL PROTECTED]> wrote: >Occasionally I get some strange access violations in perl >but perl exit status is %X00000001. That makes reacting to it >rather hard. Any ideas how that can happen or how to >debug? Here's what I see (this usually works): > >$ perl perl_root:[utils]spamassassin < >MX_ROOT:[SITE]SITE_MSG_EF4331D6_00A24FAF_20201602.TMP > MX_ROOT:[SITE] >SITE_MSG_EF4331D6_00A24FAF_20201602.TMP >debug: Score set 0 chosen. >debug: running in taint mode? no >debug: using "/perl_root/share/spamassassin/" for default rules dir >debug: using "/tools_root/spamassassin/mail/spamassassin/" for site rules dir >debug: expand_name: 1 $home: /SYS$SYSROOT/SYSMGR/, $name: >debug: using "/SYS$SYSROOT/SYSMGR//_spamassassin" for user state dir >debug: expand_name: 1 $home: /SYS$SYSROOT/SYSMGR/, $name: >debug: using "/SYS$SYSROOT/SYSMGR//_spamassassin/user_prefs" for user prefs file >debug: expand_name: 1 $home: /SYS$SYSROOT/SYSMGR/, $name: >debug: using "/SYS$SYSROOT/SYSMGR//_spamassassin" for user state dir >debug: bayes: 538973444 tie-ing to DB file R/O >/SYS$SYSROOT/SYSMGR//_spamassassin/bayes_toks >debug: bayes: 538973444 tie-ing to DB file R/O >/SYS$SYSROOT/SYSMGR//_spamassassin/bayes_seen >debug: debug: Only 169 ham(s) in Bayes DB < 200 >debug: bayes: 538973444 untie-ing >debug: bayes: 538973444 untie-ing db_toks >debug: bayes: 538973444 untie-ing db_seen >debug: Score set 1 chosen. >debug: Initialising learner >debug: expand_name: 1 $home: /SYS$SYSROOT/SYSMGR/, $name: >debug: using "/SYS$SYSROOT/SYSMGR//_spamassassin" for user state dir >debug: bayes: 538973444 tie-ing to DB file R/O >/SYS$SYSROOT/SYSMGR//_spamassassin/bayes_toks >debug: bayes: 538973444 tie-ing to DB file R/O >/SYS$SYSROOT/SYSMGR//_spamassassin/bayes_seen >debug: debug: Only 169 ham(s) in Bayes DB < 200 >debug: bayes: 538973444 untie-ing >debug: bayes: 538973444 untie-ing db_toks >debug: bayes: 538973444 untie-ing db_seen >debug: dns_available set to yes in config file, skipping test >debug: is Net::DNS::Resolver available? yes >debug: running header regexp tests; score so far=0 >debug: running body-text per-line regexp tests; score so far=0 >%SYSTEM-F-ACCVIO, access violation, reason mask=04, virtual address=000000007AEFDFF0, >PC=FFFFFFFF809B5D88, PS=0000001B > > Improperly handled condition, image exit forced. > Signal arguments: Number = 0000000000000005 > Name = 000000000000000C > 0000000000000004 > 000000007AEFDFF0 > FFFFFFFF809B5D88 > 000000000000001B > > Register dump: > R0 = 0000000000000000 R1 = 0000000000000001 R2 = 0000000000049F48 > R3 = 00000000010B1170 R4 = 00000000001E2310 R5 = 00000000001E242C > R6 = 00000000000000FE R7 = 0000000000000005 R8 = FFFFFFFF80080000 > R9 = 0000000000000000 R10 = 0000000001339E20 R11 = 0000000000000084 > R12 = 0000000000000005 R13 = 0000000004840004 R14 = 0000000000000000 > R15 = 00000000002AADB8 R16 = 00000000010B1170 R17 = 0000000000237594 > R18 = 0000000000001347 R19 = 0000000000000000 R20 = 0000000020000000 > R21 = 666E6F6300000000 R22 = 00000000001E2158 R23 = 0000000000000000 > R24 = 0000000000000000 R25 = 0000000000000001 R26 = FFFFFFFF80825530 > R27 = 000000007BE4D0B0 R28 = 00000000001685A0 R29 = 000000007FFA1EE0 > SP = 000000007AF0C000 PC = FFFFFFFF809B5D88 PS = 000000000000001B >$ sh symb $* > $RESTART == "FALSE" > $SEVERITY == "1" > $STATUS == "%X00000001" >$ if .not. $status >$ endif > > >Thanks, >Michael > > >
