Here it is, the first go at a module for DieHandler and WarnHandler,
tentatively called Religion. (Called that because it contains details
about where you go after you die(). Yes, I very much doubt it could go
intro the distribution with this name, as some people can't take a joke.
Or even a bad pun.)
Anyhow, uudecode this and try running this test script under perl -w:
#!/usr/bin/perl
use Religion;
BEGIN { $SIG{__WARN__} = new WarnHandler sub { next }; }
print FOO "test";
Note that the output should differ _very_ slightly from what you would
expect. For a more pronounced demo, try this test line instead:
eval 'print FOO "test";'; print $@;
Of course, both these examples are only installing a WarnHandler for the
side-effects. You might like something like this:
$SIG{__WARN__} = new WarnHandler sub {
my($msg)=@_;
last if $msg =~ /Identifier.*only once.*typo/;
next;
};
That will cancel any warning that mentions Identifies only being used
once. I'm sure Tom can think up clever uses for this.
Documentation is included, as an embedded pod.
begin 644 Religion.pm
M<&%C:V%G92!296QI9VEO;CL*"G-U8B!I;7!O<G0@>WT[(",@3F]T:&EN9R!T
M;R!E>'!O<G0*"G-U8B!4<F%C94)A8VL@>PH)(R!':79E;B!A('-T87)T:6YG
M('-C;W!E(&]F9G-E="P@<F5T=7)N<R`H9V5T(')E861Y*3H*"2,*"2,@0F]O
M;#H@86T@22!I;B!A;B!E=F%L/R`H06YD(&AO=R!M86YY(&5V86QS(&%R92!A
M<F]U;F0@;64_*0H)(R!);G1E9V5R.B!W:&%T(&ES('1H92!L:6YE(&YU;6)E
M<B!O9B!T:&ES('-C;W!E/PH)(R!3=')I;F<Z('=H870@:7,@=&AE(&9I;&5N
M86UE(&]F('1H:7,@<V-O<&4_"@DC($EN=&5G97(Z('=H870@:7,@=&AE(&QI
M;F4@;G5M8F5R(&]F('1H92!N96%R97-T('-C;W!E"@DC("`@("`@("`@('1H
M870@:7,@82!F:6QE+"!N;W0@86X@979A;#\*"2,@4W1R:6YG.B!W:&%T(&ES
M('1H92!F:6QE;F%M92!O9B!T:&4@;F5A<F5S="!S8V]P92!T:&%T"@DC("`@
M("`@("`@=&AA="!I<R!A(&9I;&4L(&YO="!A;B!E=F%L/PH)(R!3=')I;F<Z
M($EF($D@=V5R92!T;R!P<FEN="!O=70@82!M97-S86=E('1O('1H92!U<V5R
M+"!W:&%T"@DC("`@("`@("`@<VAO=6QD($D@<V%Y('1O(&5X<&QA:6X@=&AE
M(')E;&%T:6]N(&]F('1H92!N96%R97-T"@DC("`@("`@("`@9FEL92!S8V]P
M92!T;R!M>2!C=7)R96YT('-C;W!E/PH*"6UY*"1L979E;"D@/2!`7SL*"6UY
M*"1I;&EN92D@/2`H8V%L;&5R*"1L979E;"DI6S)=.PH);7DH)&EF:6QE*2`]
M("AC86QL97(H)&QE=F5L*2E;,5T["@EM>2@D;FEL+"1O9FEL92PD;VQI;F4L
M)'-U8BD["@EM>2@D;W-C;W!E*3TB(CL*"6UY*"1E=F%L*3TP.PH*("`)=VAI
M;&4@*"@D;FEL+"1F:6QE+"1L:6YE+"1S=6(I(#T@8V%L;&5R*"1L979E;"LK
M*2D@>PH)("`@(&EF*"`D9FEL92`]?B`O7EPH979A;"\@*2!["@D)"21O;&EN
M92`]("AC86QL97(H)&QE=F5L*2E;,ET["@D)"21O<V-O<&4@+CT@(G1H92!E
M=F%L(&%T(&QI;F4@)&]L:6YE(&]F("(["@D)"21E=F%L*RL["@D@("`@?2!E
M;'-E('L*"2`@("`)<F5T=7)N("@D979A;"PD:6QI;F4L)&EF:6QE+"1L:6YE
M+"1F:6QE+"1O<V-O<&4I.PH)("`@('T*"7T*"@ED:64@(E5N86)L92!T;R!T
M<F%C92!S8V]P92([(",@5&AI<R!C86XG="!H87!P96XN"@I]"2`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@"@H*<&%C:V%G92!$:65(86YD;&5R.PH*
M<W5B(&YE=R!["@EM>2@D<&MG+"1S=6(I(#T@0%\["@EM>2@D;VQD:&%N9&QE
M<BD@/2`D4TE'>U]?1$E%7U]].PH*"7)E='5R;B!S=6(@>PH)"6UY*"1M<V<L
M)&9M<V<L0'1R86-E+"1L979E;"PD979A;"D["@D):68H0%\]/3$I('L*"0D)
M(R!);G9O:V5D(&)Y(&1I92@I.PH)"0DD;7-G(#T@)%];,%T["@D)"21M<V<@
M/7X@<R\@870@*%Q3*WQ<*"XJ7"DI(&QI;F4@7&0K7"Y<;B0O+SL*"0D))&QE
M=F5L/3`["@D)"2,H)&5V86PL)&EL:6YE+"1I9FEL92PD;VQI;F4L)&]F:6QE
M+"1O<V-O<&4I(`H)"0E`=')A8V4@/2!296QI9VEO;CHZ5')A8V5"86-K*"1L
M979E;"LQ*3L*"@D)"21F;7-G(#T@)&US9R`N("@H<W5B<W1R*"1M<V<L+3$L
M,2D@;F4@(EQN(BD@/PH)"0D)"0D@(B!A="!L:6YE("1T<F%C95LQ72!O9B`D
M=')A8V5;-5TD=')A8V5;-%TN7&XB"@D)"0D)"2`C(B!A="`D=')A8V5;,ET@
M;&EN92`D=')A8V5;,5TN7&XB"@D)"0D)"2`Z("(B*3L*"0E](&5L<V4@>PH)
M"0DH)&US9RPD9FUS9RPD;&5V96PL0'1R86-E*2`]($!?.PH)"7T*"0D*"0EM
M>2A`<F5S=6QT*3L*"0DC86YO;GEM;W5S(&)L;V-K.@H)"7L@"@D)"4!R97-U
M;'0])B1S=6(H)&US9RPD9FUS9RPD;&5V96PK,2Q`=')A8V4I.PH*"0D))&US
M9R`]("1R97-U;'1;,%T@:68@0')E<W5L=#XP.PH)"0DD9FUS9R`]("1R97-U
M;'1;,5T@:68@0')E<W5L=#XQ.PH)"0DD;&5V96P@/2`D<F5S=6QT6S)=+3$@
M:68@0')E<W5L=#XR.PH)"0E`=')A8V5;,"XN)"-R97-U;'0M,UT@/2`D<F5S
M=6QT6S,N+B0C<F5S=6QT72!I9B!`<F5S=6QT/C,["@D)"0H)"0EI9BA`<F5S
M=6QT/3TQ*2![(`H)"0D))&9M<V<@/2`D;7-G("X@*"AS=6)S='(H)&US9RPM
M,2PQ*2!N92`B7&XB*2`_"@D)"0D)"2`B(&%T(&QI;F4@)'1R86-E6S%=(&]F
M("1T<F%C95LU721T<F%C95LT72Y<;B(*"0D)"0D)(",B(&%T("1T<F%C95LR
M72!L:6YE("1T<F%C95LQ72Y<;B(*"0D)"0D)(#H@(B(I.PH)"0E]"@D)"0H)
M"0DC(%1H870@87-S:6=N;65N="!I<R!B<F]K96X@:6YT;R!T=V\@<W1E<',@
M<V\@=&AA=`H)"0DC(&EF('1H92!S=6(@<F5T=7)N<R!V:6$@(FYE>'0B(&]R
M(")L87-T(BP@=&AE;B!T:&4*"0D)(R!A<W-I9VUE;G0@=VEL;"!N;W0@=&%K
M92!P;&%C92X@268@:70G<R!O;F4@<W1A=&5M96YT+`H)"0DC('1H96X@=&AE
M('9A<G,@=VEL;"!G970@8VQE87)E9"X@270@8V]U;&0@8F4@87)G=65D('1H
M870*"0D)(R!T:&ES(&ES(&$@8G5G(&EN('!E<FPL(&)U="!)(&1O;B=T(&9E
M96P@;&EK92!P<F5S<W-I;F<*"0D)(R!T:&4@<&]I;G0N($ET(&-A;B!B92!A
M<F=U960@=&AA="!T:&ES(&ES('9A;&ED(&)E:&%V:6]R+@H)"0D*"0D)(R!!
M9&1E;F1U;3H@:70@:7,@;F]W(&)R;VME;B!I;G1O(&$@;7ER:6%D(&]F('-T
M97!S('-O('1H870*"0D)(R!A(&AA;F1L97(@8V%N(')E='5R;B!P87)T:6%L
M('1R86-E(&1A=&$L(&%N9"!T:&ES('=I;&P@='5R;@H)"0DC(&]U="!A;')I
M9VAT(&EN('1H92!E;F0L('EO=2=L;"!S964N"@D)"0H)"7T@8V]N=&EN=64@
M>PH)"0H)"0EI9B@D;VQD:&%N9&QE<BD@>PH)"0D))B1O;&1H86YD;&5R*"1M
M<V<L)&9M<V<L)&QE=F5L*S$L0'1R86-E*3L*"0D)?2!E;'-E('L*"0D)"61I
M92`D9FUS9SL*"0D)?0H)"0D*"0E]"@E]"0I].PH*<&%C:V%G92!787)N2&%N
M9&QE<CL*"G-U8B!N97<@>PH);7DH)'!K9RPD<W5B*2`]($!?.PH);7DH)&]L
M9&AA;F1L97(I(#T@)%-)1WM?7U=!4DY?7WT["@H)<F5T=7)N('-U8B!["@D)
M;7DH)&US9RPD9FUS9RQ`=')A8V4L)&QE=F5L+"1E=F%L*3L*"0EI9BA`7ST]
M,2D@>PH)"0DC($EN=F]K960@8GD@=V%R;B@I.PH)"0DD;7-G(#T@)%];,%T[
M"@D)"21M<V<@/7X@<R\@870@*%Q3*WQ<*"XJ7"DI(&QI;F4@7&0K7"Y<;B0O
M+SL*"0D))&QE=F5L/3`["@D)"2,H)&5V86PL)&EL:6YE+"1I9FEL92PD;VQI
M;F4L)&]F:6QE+"1O<V-O<&4I(`H)"0E`=')A8V4@/2!296QI9VEO;CHZ5')A
M8V5"86-K*"1L979E;"LQ*3L*"@D)"21F;7-G(#T@)&US9R`N("@H<W5B<W1R
M*"1M<V<L+3$L,2D@;F4@(EQN(BD@/PH)"0D)"0D@(B!A="!L:6YE("1T<F%C
M95LQ72!O9B`D=')A8V5;-5TD=')A8V5;-%TN7&XB"@D)"0D)"2`C(B!A="`D
M=')A8V5;,ET@;&EN92`D=')A8V5;,5TN7&XB"@D)"0D)"2`Z("(B*3L*"0E]
M(&5L<V4@>PH)"0DH)&US9RPD9FUS9RPD;&5V96PL0'1R86-E*2`]($!?.PH)
M"7T*"0D*"0EM>2A`<F5S=6QT*3L*"0DC86YO;GEM;W5S(&)L;V-K.@H)"7L@
M"@D)"4!R97-U;'0])B1S=6(H)&US9RPD9FUS9RPD;&5V96PK,2Q`=')A8V4I
M.PH*"0D))&US9R`]("1R97-U;'1;,%T@:68@0')E<W5L=#XP.PH)"0DD9FUS
M9R`]("1R97-U;'1;,5T@:68@0')E<W5L=#XQ.PH)"0DD;&5V96P@/2`D<F5S
M=6QT6S)=+3$@:68@0')E<W5L=#XR.PH)"0E`=')A8V5;,"XN)"-R97-U;'0M
M,UT@/2!`<F5S=6QT6S,N+B0C<F5S=6QT72!I9B!`<F5S=6QT/C,["@D)"0H)
M"0EI9BA`<F5S=6QT/3TQ*2![(`H)"0D))&9M<V<@/2`D;7-G("X@*"AS=6)S
M='(H)&US9RPM,2PQ*2!N92`B7&XB*2`_"@D)"0D)"2`B(&%T(&QI;F4@)'1R
M86-E6S%=(&]F("1T<F%C95LU721T<F%C95LT72Y<;B(*"0D)"0D)(",B(&%T
M("1T<F%C95LR72!L:6YE("1T<F%C95LQ72Y<;B(*"0D)"0D)(#H@(B(I.PH)
M"0E]"@D)"0H)"0DC(%1H870@87-S:6=N;65N="!I<R!B<F]K96X@:6YT;R!T
M=V\@<W1E<',@<V\@=&AA=`H)"0DC(&EF('1H92!S=6(@<F5T=7)N<R!V:6$@
M(FYE>'0B(&]R(")L87-T(BP@=&AE;B!T:&4*"0D)(R!A<W-I9VUE;G0@=VEL
M;"!N;W0@=&%K92!P;&%C92X@268@:70G<R!O;F4@<W1A=&5M96YT+`H)"0DC
M('1H96X@=&AE('9A<G,@=VEL;"!G970@8VQE87)E9"X@270@8V]U;&0@8F4@
M87)G=65D('1H870*"0D)(R!T:&ES(&ES(&$@8G5G(&EN('!E<FPL(&)U="!)
M(&1O;B=T(&9E96P@;&EK92!P<F5S<W-I;F<*"0D)(R!T:&4@<&]I;G0N($ET
M(&-A;B!B92!A<F=U960@=&AA="!T:&ES(&ES('9A;&ED(&)E:&%V:6]R+@H)
M"0D*"0D)(R!!9&1E;F1U;3H@:70@:7,@;F]W(&)R;VME;B!I;G1O(&$@;7ER
M:6%D(&]F('-T97!S('-O('1H870*"0D)(R!A(&AA;F1L97(@8V%N(')E='5R
M;B!P87)T:6%L('1R86-E(&1A=&$L(&%N9"!T:&ES('=I;&P@='5R;@H)"0DC
M(&]U="!A;')I9VAT(&EN('1H92!E;F0L('EO=2=L;"!S964N"@D)"0H)"7T@
M8V]N=&EN=64@>PH)"0H)"0EI9B@D;VQD:&%N9&QE<BD@>PH)"0D))B1O;&1H
M86YD;&5R*"1M<V<L)&9M<V<L)&QE=F5L*S$L0'1R86-E*3L*"0D)?2!E;'-E
M('L*"0D)"7=A<FX@)&9M<V<["@D)"7T*"0D)"@D)?0H)?0D*?3L*"@IP86-K
M86=E(%)E;&EG:6]N.PH*,3L*"E]?14Y$7U\["@H]:&5A9#$@3D%-10H*4F5L
M:6=I;VX@+2!'96YE<F%T92!T<F%C96)A8VMS(&%N9"!C<F5A=&4@86YD(&EN
M<W1A;&P@9&EE*"D@86YD"B!W87)N*"D@:&%N9&QE<G,N"@H]:&5A9#$@1$53
M0U))4%1)3TX*"E1H:7,@:7,@82!F:7)S="!G;R!A="!A(&UO9'5L92!T;R!S
M:6UP;&EF>2!I;G-T86QL:6YG(&1I92@I(&%N9"!W87)N*"D*:&%N9&QE<G,L
M(&%N9"!T;R!M86ME('-U8V@@:&%N9&QE<G,@96%S:65R('1O('=R:71E(&%N
M9"!C;VYT<F]L+B!)=`IP<F]V:61E<R!T=V\@8VQA<W-E<RP@5V%R;DAA;F1L
M97(@86YD($1I94AA;F1L97(L('1H870@=VAE;B!Y;W4@8V]N<W1R=6-T"G1H
M96T@<F5T=7)N(&-L;W-U<F5S('1H870@8V%N+"!I;B!T=7)N+"!B92!U<V5D
M(&)Y("1324=[7U]$245?7WT@86YD"B1324=[7U]705).7U]]+B`*"E)E;&EG
M:6]N(&%L<V\@<')O=FED97,@82!4<F%C94)A8VL@9G5N8W1I;VXL('=H:6-H
M(&ES('5S960@8GD@82!$:65(86YD;&5R"F%F=&5R('EO=2!#/&1I92@I/B!T
M;R!G:79E(&$@8F5T=&5R(&AA;F1L92!O;B!T:&4@8W5R<F5N="!S8V]P92!O
M9B!Y;W5R"G-I='5A=&EO;BP@86YD('!R;W9I9&4@:6YF;W)M871I;VX@86)O
M=70@=VAE<F4@>6]U('=E<F4L('=H:6-H(&UI9VAT"FEN9FQU96YC92!W:&5R
M92!Y;W4@=V%N="!T;R!G;R!N97AT+"!E:71H97(@<F5T=7)N:6YG(&)A8VL@
M=&\@=VAE<F4@>6]U"G=E<F4L(&]R(&=O:6YG(&]N('1O('1H92!V97)Y(&QA
M<W0N(%M3;W)R>2`M($5D+ET*"E-E92!B96QO=R!F;W(@=7-A9V4@86YD(&5X
M86UP;&5S+@H*/6AE860Q(%5304=%"@H];W9E<B`X"@H]:71E;2!$:65(86YD
M;&5R(%-50@H*26YV;VME(&QI:V4@=&AI<SH*"B!L;V-A;"@D4TE'>U]?1$E%
M7U]]*2`](&YE=R!$:65(86YD;&5R('-U8B!["B`)(RXN+@H@?3L*"G=H97)E
M($,\(RXN+CX@8V]N=&%I;G,@>6]U<B!H86YD;&5R(&-O9&4N(%EO=7(@:&%N
M9&QE<B!W:6QL(')E8V5I=F4@=&AE"F9O;&QO=VEN9R!A<F=U;65N=',Z"@H@
M("1M97-S86=E+"`D9G5L;%]M97-S86=E+"`D;&5V96PL("1E=F%L+"`*("`)
M"2`@("`D:6QI;F4L("1I9FEL92P@)&]L:6YE+"`D;V9I;&4L("1O<V-O<&4*
M"D,\)&UE<W-A9V4^(&ES('1H92!M97-S86=E('!R;W9I9&5D('1O(&1I92@I
M+B!.;W1E('1H870@=&AE(&1E9F%U;'0@861D:71I;VX*;V8@(B!A="!&24Q%
M(&QI;F4@3$E.12Y<;B(@=VEL;"!H879E(&)E96X@<W1R:7!P960@;V9F(&EF
M(&ET('=A<R!P<F5S96YT+@I)9B!Y;W4@=V%N="!T;R!A9&0@<W5C:"!A(&UE
M<W-A9V4@8F%C:R!O;BP@9F5E;"!F<F5E('1O(&1O('-O('=I=&@@)&EL:6YE
M"F%N9"`D:69I;&4N"@I#/"1F=6QL7VUE<W-A9V4I(&ES('1H92!M97-S86=E
M('=I=&@@82!S8V]P92!M97-S86=E(&%D9&5D(&]N(&EF('1H97)E('=A<PIN
M;R!N97=L:6YE(&%T('1H92!E;F0@;V8@0SPD;65S<V%G93XN($-U<G)E;G1L
M>2P*=&AI<R!I<R!)/&YO=#X@=&AE(&]R:6=I;F%L(&UE<W-A9V4@=&AA="!D
M:64H*2!T86-K960@;VXL(&)U="!S;VUE=&AI;F<@"F%L;VYG('1H92!L:6YE
M<R!O9B`B(&%T(&QI;F4@,R!O9B!T:&4@979A;"!A="!L:6YE(#0@;V8@1F]O
M+G!L7&XB+@H*0SPD979A;#X@:7,@;F]N+7IE<F\@:68@=&AE(&1I92@I('=A
M<R!I;G9O:V5D(&EN<VED92!A;B!E=F%L+@H*5&AE(')E<W0@;V8@=&AE(&%R
M9W5M96YT<R!A<F4@97AP;&%I;F5D(&EN('1H92!S;W5R8V4@9F]R"E)E;&EG
M:6]N.CI4<F%C94)A8VLN(%EE<RP@22!N965D('1O(&1O8W5M96YT('1H97-E
M+"!B=70@;&%T97(L(&9O<B!T:&5Y(&%R90IA('!A:6X@=&\@97AP;&%I;BX*
M"@I)9B!Y;W5R(&AA;F1L97(@<F5T=7)N<R!D871A('5S:6YG($,\<F5T=7)N
M/B!O<B!B>2!F86QL:6YG(&]F9B!T:&4@96YD+"`*=&AE;B!T:&4@:71E;7,@
M<F5T=7)N<R!W:6QL(&)E('5S960@=&\@9FEL;"!B86-K(&EN('1H92!A<F=U
M;65N="!L:7-T+"!A;F0@"G1H92!N97AT(&AA;F1L97(@:6X@=&AE(&-H86EN
M+"!I9B!A;GDL('=I;&P@8F4@:6YV;VME9"X*"DEF('EO=7(@:&%N9&QE<B!E
M>&ET<R!U<VEN9R!#/&QA<W0^+"!T:&5N(&YO(&9U<G1H97(@:&%N9&QE<G,@
M=VEL;"!B92`*:6YV;VME9"P@86YD(&5X96-U=&EO;B!W:6QL(')E='5R;B!T
M;R!W:&5R92!D:64H*2!W87,@8V%L;&5D+B!.;W1E('1H870*<')O8F%B;'D@
M9F5W('!R;V=R86US('=I;&P@8F4@97AP96-T:6YG('1H:7,@8F5H879I;W5R
M+"!S;R!D;VXG="!D;R!I=`IW:71H;W5T('!R;W9O8V%T:6]N+@H*268@>6]U
M<B!H86YD;&5R(&5X:71S('5S:6YG($,\;F5X=#XL('1H96X@=&AE(&YE>'0@
M:&%N9&QE<B!I;B!T:&4@8VAA:6X*=VEL;"!B92!I;G9O:V5D(&1I<F5C=&QY
M+"!W:71H;W5T(&=I=FEN9R!Y;W4@82!C:&%N8V4@=&\@8VAA;F=E(&ET)W,@
M87)G=6UE;G1S"F%S('EO=2!C;W5L9"!I9B!Y;W4@=7-E9"!#/')E='5R;CXN
M"@I)9B!Y;W5R(&AA;F1L97(@:6YV;VME<R!D:64H*2P@=&AE;B!D:64H*2!W
M:6QL('!R;V-E960@87,@:68@;F\@:&%N9&QE<G,*=V5R92!I;G-T86QL960N
M($EF('EO=2!A<F4@:6YS:61E(&%N(&5V86PL('1H96X@:70@=VEL;"!E>&ET
M('1O('1H92!S8V]P90IE;F-L;W-I;F<@=&AE(&5V86PL(&]T:&5R=VES92!I
M="!W:6QL(&5X:70@=&AE('!R;V=R86TN"@H]:71E;2!787)N2&%N9&QE<B!3
M54(*"DEN=F]K92!L:6ME('1H:7,Z"@H@;&]C86PH)%-)1WM?7U=!4DY?7WTI
M(#T@;F5W(%=A<FY(86YD;&5R('-U8B!["B`)(RXN+@H@?3L*(`I&;W(@=&AE
M(')E<W0@;V8@:71S(&5X<&QA;F%T:6]N+"!S964@1&EE2&%N9&QE<BP@86YD
M('-U8G-I='5T92!W87)N*"D@9F]R"F1I92@I+@H*/6)A8VL*"CUH96%D,2!%
M6$%-4$Q%4PH*/6]V97(@.`H*/6ET96T@02!D:6%L;V<@97)R;W(@;65S<V%G
M93H*"B`D4TE'>U]?1$E%7U]](#T@;F5W($1I94AA;F1L97(@<W5B('L*("`@
M(&UY*"1M<V<L)&9M<V<L)&QE=F5L+"1E=F%L*2`]($!?.PH@("`@:68H)&5V
M86PI('L*(`D)(R!I9B!W92!A<F4@:6X@86X@979A;"P@<VMI<"!T;R!T:&4@
M;F5X="!H86YD;&5R"B`)"6YE>'0["B`)?2!E;'-E('L*(`D)(R!S:&]W(&$@
M;65S<V%G92!B;W@@9&5S8W)I8FEN9R!T:&4@97)R;W(N"@D@"7!R:6YT(")3
M:&]W365S<V%G94)O>"`D9FUS9R(["@D@"0H)(`DC(&9O<F-E('1H92!P<F]G
M<F%M('1O(&5X:70*"2`)97AI="`P.PH)(`EN97AT.PH@"7T*('T["@H]:71E
M;2!!(&AA;F1L97(@=&AA="!C:&%N9V5S(&1I92@I(&UE<W-A9V5S(&)A8VL@
M=&\@=&AE(&]R:6=I;F%L(&9O<FUA=`H*(&QO8V%L*"1324=[7U]$245?7WTI
M(#T@;F5W($1I94AA;F1L97(@<W5B('L*("`@(&UY*"1M<V<L)&9M<V<L)&QE
M=F5L+$!T<F%C92D@/2!`7SL*"@DD9FUS9R`]("1M<V<@+B`H*'-U8G-T<B@D
M;7-G+"TQ+#$I(&YE(")<;B(I(#\*"0D)"2`B(&%T("1T<F%C95LR72!L:6YE
M("1T<F%C95LQ72Y<;B(*"0D)"2`Z("(B*3L*"7)E='5R;B`H)&US9RPD9FUS
M9RD["B!].PH*/6ET96T@02!W87)N(&AA;F1L97(@=&AA="!D;V5S(&YO=&AI
M;F<@8G5T(&)R:6YG(&EN(%=A<FY(86YD;&5R)W,@9&5F875L=',@=&\@<W!R
M=6-E('5P('=A<FYI;F=S+@H*("1324=[7U]705).7U]](#T@;F5W(%=A<FY(
M86YD;&5R('-U8B![?3L*"CUI=&5M($$@=V%R;B!H86YD;&5R('1H870@;6%K
M97,@:6YV:7-I8FQE('=A<FYI;F=S('9I<VEB;&4*"B`D4TE'>U]?5T%23E]?
M?2`](&YE=R!787)N2&%N9&QE<B!S=6(@>PH@"6UY*"1M<V<L)&9M<V<L)&QE
M=F5L+"1E=F%L*2`]($!?.PH@"6EF*"1E=F%L*2!["B`)"7!R:6YT(%-41$52
M4B`B5V%R;FEN9R!H:61D96X@8GD@979A;#H@)&9M<V<B.PH@"7T*(`EN97AT
4.PH@?3L*"CUB86-K"@H]8W5T"@H@
`
end
--
Kenneth Albanowski (kjahds@kjahds.com, CIS: 70705,126)
tentatively called Religion. (Called that because it contains details
about where you go after you die(). Yes, I very much doubt it could go
intro the distribution with this name, as some people can't take a joke.
Or even a bad pun.)
Anyhow, uudecode this and try running this test script under perl -w:
#!/usr/bin/perl
use Religion;
BEGIN { $SIG{__WARN__} = new WarnHandler sub { next }; }
print FOO "test";
Note that the output should differ _very_ slightly from what you would
expect. For a more pronounced demo, try this test line instead:
eval 'print FOO "test";'; print $@;
Of course, both these examples are only installing a WarnHandler for the
side-effects. You might like something like this:
$SIG{__WARN__} = new WarnHandler sub {
my($msg)=@_;
last if $msg =~ /Identifier.*only once.*typo/;
next;
};
That will cancel any warning that mentions Identifies only being used
once. I'm sure Tom can think up clever uses for this.
Documentation is included, as an embedded pod.
begin 644 Religion.pm
M<&%C:V%G92!296QI9VEO;CL*"G-U8B!I;7!O<G0@>WT[(",@3F]T:&EN9R!T
M;R!E>'!O<G0*"G-U8B!4<F%C94)A8VL@>PH)(R!':79E;B!A('-T87)T:6YG
M('-C;W!E(&]F9G-E="P@<F5T=7)N<R`H9V5T(')E861Y*3H*"2,*"2,@0F]O
M;#H@86T@22!I;B!A;B!E=F%L/R`H06YD(&AO=R!M86YY(&5V86QS(&%R92!A
M<F]U;F0@;64_*0H)(R!);G1E9V5R.B!W:&%T(&ES('1H92!L:6YE(&YU;6)E
M<B!O9B!T:&ES('-C;W!E/PH)(R!3=')I;F<Z('=H870@:7,@=&AE(&9I;&5N
M86UE(&]F('1H:7,@<V-O<&4_"@DC($EN=&5G97(Z('=H870@:7,@=&AE(&QI
M;F4@;G5M8F5R(&]F('1H92!N96%R97-T('-C;W!E"@DC("`@("`@("`@('1H
M870@:7,@82!F:6QE+"!N;W0@86X@979A;#\*"2,@4W1R:6YG.B!W:&%T(&ES
M('1H92!F:6QE;F%M92!O9B!T:&4@;F5A<F5S="!S8V]P92!T:&%T"@DC("`@
M("`@("`@=&AA="!I<R!A(&9I;&4L(&YO="!A;B!E=F%L/PH)(R!3=')I;F<Z
M($EF($D@=V5R92!T;R!P<FEN="!O=70@82!M97-S86=E('1O('1H92!U<V5R
M+"!W:&%T"@DC("`@("`@("`@<VAO=6QD($D@<V%Y('1O(&5X<&QA:6X@=&AE
M(')E;&%T:6]N(&]F('1H92!N96%R97-T"@DC("`@("`@("`@9FEL92!S8V]P
M92!T;R!M>2!C=7)R96YT('-C;W!E/PH*"6UY*"1L979E;"D@/2!`7SL*"6UY
M*"1I;&EN92D@/2`H8V%L;&5R*"1L979E;"DI6S)=.PH);7DH)&EF:6QE*2`]
M("AC86QL97(H)&QE=F5L*2E;,5T["@EM>2@D;FEL+"1O9FEL92PD;VQI;F4L
M)'-U8BD["@EM>2@D;W-C;W!E*3TB(CL*"6UY*"1E=F%L*3TP.PH*("`)=VAI
M;&4@*"@D;FEL+"1F:6QE+"1L:6YE+"1S=6(I(#T@8V%L;&5R*"1L979E;"LK
M*2D@>PH)("`@(&EF*"`D9FEL92`]?B`O7EPH979A;"\@*2!["@D)"21O;&EN
M92`]("AC86QL97(H)&QE=F5L*2E;,ET["@D)"21O<V-O<&4@+CT@(G1H92!E
M=F%L(&%T(&QI;F4@)&]L:6YE(&]F("(["@D)"21E=F%L*RL["@D@("`@?2!E
M;'-E('L*"2`@("`)<F5T=7)N("@D979A;"PD:6QI;F4L)&EF:6QE+"1L:6YE
M+"1F:6QE+"1O<V-O<&4I.PH)("`@('T*"7T*"@ED:64@(E5N86)L92!T;R!T
M<F%C92!S8V]P92([(",@5&AI<R!C86XG="!H87!P96XN"@I]"2`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@"@H*<&%C:V%G92!$:65(86YD;&5R.PH*
M<W5B(&YE=R!["@EM>2@D<&MG+"1S=6(I(#T@0%\["@EM>2@D;VQD:&%N9&QE
M<BD@/2`D4TE'>U]?1$E%7U]].PH*"7)E='5R;B!S=6(@>PH)"6UY*"1M<V<L
M)&9M<V<L0'1R86-E+"1L979E;"PD979A;"D["@D):68H0%\]/3$I('L*"0D)
M(R!);G9O:V5D(&)Y(&1I92@I.PH)"0DD;7-G(#T@)%];,%T["@D)"21M<V<@
M/7X@<R\@870@*%Q3*WQ<*"XJ7"DI(&QI;F4@7&0K7"Y<;B0O+SL*"0D))&QE
M=F5L/3`["@D)"2,H)&5V86PL)&EL:6YE+"1I9FEL92PD;VQI;F4L)&]F:6QE
M+"1O<V-O<&4I(`H)"0E`=')A8V4@/2!296QI9VEO;CHZ5')A8V5"86-K*"1L
M979E;"LQ*3L*"@D)"21F;7-G(#T@)&US9R`N("@H<W5B<W1R*"1M<V<L+3$L
M,2D@;F4@(EQN(BD@/PH)"0D)"0D@(B!A="!L:6YE("1T<F%C95LQ72!O9B`D
M=')A8V5;-5TD=')A8V5;-%TN7&XB"@D)"0D)"2`C(B!A="`D=')A8V5;,ET@
M;&EN92`D=')A8V5;,5TN7&XB"@D)"0D)"2`Z("(B*3L*"0E](&5L<V4@>PH)
M"0DH)&US9RPD9FUS9RPD;&5V96PL0'1R86-E*2`]($!?.PH)"7T*"0D*"0EM
M>2A`<F5S=6QT*3L*"0DC86YO;GEM;W5S(&)L;V-K.@H)"7L@"@D)"4!R97-U
M;'0])B1S=6(H)&US9RPD9FUS9RPD;&5V96PK,2Q`=')A8V4I.PH*"0D))&US
M9R`]("1R97-U;'1;,%T@:68@0')E<W5L=#XP.PH)"0DD9FUS9R`]("1R97-U
M;'1;,5T@:68@0')E<W5L=#XQ.PH)"0DD;&5V96P@/2`D<F5S=6QT6S)=+3$@
M:68@0')E<W5L=#XR.PH)"0E`=')A8V5;,"XN)"-R97-U;'0M,UT@/2`D<F5S
M=6QT6S,N+B0C<F5S=6QT72!I9B!`<F5S=6QT/C,["@D)"0H)"0EI9BA`<F5S
M=6QT/3TQ*2![(`H)"0D))&9M<V<@/2`D;7-G("X@*"AS=6)S='(H)&US9RPM
M,2PQ*2!N92`B7&XB*2`_"@D)"0D)"2`B(&%T(&QI;F4@)'1R86-E6S%=(&]F
M("1T<F%C95LU721T<F%C95LT72Y<;B(*"0D)"0D)(",B(&%T("1T<F%C95LR
M72!L:6YE("1T<F%C95LQ72Y<;B(*"0D)"0D)(#H@(B(I.PH)"0E]"@D)"0H)
M"0DC(%1H870@87-S:6=N;65N="!I<R!B<F]K96X@:6YT;R!T=V\@<W1E<',@
M<V\@=&AA=`H)"0DC(&EF('1H92!S=6(@<F5T=7)N<R!V:6$@(FYE>'0B(&]R
M(")L87-T(BP@=&AE;B!T:&4*"0D)(R!A<W-I9VUE;G0@=VEL;"!N;W0@=&%K
M92!P;&%C92X@268@:70G<R!O;F4@<W1A=&5M96YT+`H)"0DC('1H96X@=&AE
M('9A<G,@=VEL;"!G970@8VQE87)E9"X@270@8V]U;&0@8F4@87)G=65D('1H
M870*"0D)(R!T:&ES(&ES(&$@8G5G(&EN('!E<FPL(&)U="!)(&1O;B=T(&9E
M96P@;&EK92!P<F5S<W-I;F<*"0D)(R!T:&4@<&]I;G0N($ET(&-A;B!B92!A
M<F=U960@=&AA="!T:&ES(&ES('9A;&ED(&)E:&%V:6]R+@H)"0D*"0D)(R!!
M9&1E;F1U;3H@:70@:7,@;F]W(&)R;VME;B!I;G1O(&$@;7ER:6%D(&]F('-T
M97!S('-O('1H870*"0D)(R!A(&AA;F1L97(@8V%N(')E='5R;B!P87)T:6%L
M('1R86-E(&1A=&$L(&%N9"!T:&ES('=I;&P@='5R;@H)"0DC(&]U="!A;')I
M9VAT(&EN('1H92!E;F0L('EO=2=L;"!S964N"@D)"0H)"7T@8V]N=&EN=64@
M>PH)"0H)"0EI9B@D;VQD:&%N9&QE<BD@>PH)"0D))B1O;&1H86YD;&5R*"1M
M<V<L)&9M<V<L)&QE=F5L*S$L0'1R86-E*3L*"0D)?2!E;'-E('L*"0D)"61I
M92`D9FUS9SL*"0D)?0H)"0D*"0E]"@E]"0I].PH*<&%C:V%G92!787)N2&%N
M9&QE<CL*"G-U8B!N97<@>PH);7DH)'!K9RPD<W5B*2`]($!?.PH);7DH)&]L
M9&AA;F1L97(I(#T@)%-)1WM?7U=!4DY?7WT["@H)<F5T=7)N('-U8B!["@D)
M;7DH)&US9RPD9FUS9RQ`=')A8V4L)&QE=F5L+"1E=F%L*3L*"0EI9BA`7ST]
M,2D@>PH)"0DC($EN=F]K960@8GD@=V%R;B@I.PH)"0DD;7-G(#T@)%];,%T[
M"@D)"21M<V<@/7X@<R\@870@*%Q3*WQ<*"XJ7"DI(&QI;F4@7&0K7"Y<;B0O
M+SL*"0D))&QE=F5L/3`["@D)"2,H)&5V86PL)&EL:6YE+"1I9FEL92PD;VQI
M;F4L)&]F:6QE+"1O<V-O<&4I(`H)"0E`=')A8V4@/2!296QI9VEO;CHZ5')A
M8V5"86-K*"1L979E;"LQ*3L*"@D)"21F;7-G(#T@)&US9R`N("@H<W5B<W1R
M*"1M<V<L+3$L,2D@;F4@(EQN(BD@/PH)"0D)"0D@(B!A="!L:6YE("1T<F%C
M95LQ72!O9B`D=')A8V5;-5TD=')A8V5;-%TN7&XB"@D)"0D)"2`C(B!A="`D
M=')A8V5;,ET@;&EN92`D=')A8V5;,5TN7&XB"@D)"0D)"2`Z("(B*3L*"0E]
M(&5L<V4@>PH)"0DH)&US9RPD9FUS9RPD;&5V96PL0'1R86-E*2`]($!?.PH)
M"7T*"0D*"0EM>2A`<F5S=6QT*3L*"0DC86YO;GEM;W5S(&)L;V-K.@H)"7L@
M"@D)"4!R97-U;'0])B1S=6(H)&US9RPD9FUS9RPD;&5V96PK,2Q`=')A8V4I
M.PH*"0D))&US9R`]("1R97-U;'1;,%T@:68@0')E<W5L=#XP.PH)"0DD9FUS
M9R`]("1R97-U;'1;,5T@:68@0')E<W5L=#XQ.PH)"0DD;&5V96P@/2`D<F5S
M=6QT6S)=+3$@:68@0')E<W5L=#XR.PH)"0E`=')A8V5;,"XN)"-R97-U;'0M
M,UT@/2!`<F5S=6QT6S,N+B0C<F5S=6QT72!I9B!`<F5S=6QT/C,["@D)"0H)
M"0EI9BA`<F5S=6QT/3TQ*2![(`H)"0D))&9M<V<@/2`D;7-G("X@*"AS=6)S
M='(H)&US9RPM,2PQ*2!N92`B7&XB*2`_"@D)"0D)"2`B(&%T(&QI;F4@)'1R
M86-E6S%=(&]F("1T<F%C95LU721T<F%C95LT72Y<;B(*"0D)"0D)(",B(&%T
M("1T<F%C95LR72!L:6YE("1T<F%C95LQ72Y<;B(*"0D)"0D)(#H@(B(I.PH)
M"0E]"@D)"0H)"0DC(%1H870@87-S:6=N;65N="!I<R!B<F]K96X@:6YT;R!T
M=V\@<W1E<',@<V\@=&AA=`H)"0DC(&EF('1H92!S=6(@<F5T=7)N<R!V:6$@
M(FYE>'0B(&]R(")L87-T(BP@=&AE;B!T:&4*"0D)(R!A<W-I9VUE;G0@=VEL
M;"!N;W0@=&%K92!P;&%C92X@268@:70G<R!O;F4@<W1A=&5M96YT+`H)"0DC
M('1H96X@=&AE('9A<G,@=VEL;"!G970@8VQE87)E9"X@270@8V]U;&0@8F4@
M87)G=65D('1H870*"0D)(R!T:&ES(&ES(&$@8G5G(&EN('!E<FPL(&)U="!)
M(&1O;B=T(&9E96P@;&EK92!P<F5S<W-I;F<*"0D)(R!T:&4@<&]I;G0N($ET
M(&-A;B!B92!A<F=U960@=&AA="!T:&ES(&ES('9A;&ED(&)E:&%V:6]R+@H)
M"0D*"0D)(R!!9&1E;F1U;3H@:70@:7,@;F]W(&)R;VME;B!I;G1O(&$@;7ER
M:6%D(&]F('-T97!S('-O('1H870*"0D)(R!A(&AA;F1L97(@8V%N(')E='5R
M;B!P87)T:6%L('1R86-E(&1A=&$L(&%N9"!T:&ES('=I;&P@='5R;@H)"0DC
M(&]U="!A;')I9VAT(&EN('1H92!E;F0L('EO=2=L;"!S964N"@D)"0H)"7T@
M8V]N=&EN=64@>PH)"0H)"0EI9B@D;VQD:&%N9&QE<BD@>PH)"0D))B1O;&1H
M86YD;&5R*"1M<V<L)&9M<V<L)&QE=F5L*S$L0'1R86-E*3L*"0D)?2!E;'-E
M('L*"0D)"7=A<FX@)&9M<V<["@D)"7T*"0D)"@D)?0H)?0D*?3L*"@IP86-K
M86=E(%)E;&EG:6]N.PH*,3L*"E]?14Y$7U\["@H]:&5A9#$@3D%-10H*4F5L
M:6=I;VX@+2!'96YE<F%T92!T<F%C96)A8VMS(&%N9"!C<F5A=&4@86YD(&EN
M<W1A;&P@9&EE*"D@86YD"B!W87)N*"D@:&%N9&QE<G,N"@H]:&5A9#$@1$53
M0U))4%1)3TX*"E1H:7,@:7,@82!F:7)S="!G;R!A="!A(&UO9'5L92!T;R!S
M:6UP;&EF>2!I;G-T86QL:6YG(&1I92@I(&%N9"!W87)N*"D*:&%N9&QE<G,L
M(&%N9"!T;R!M86ME('-U8V@@:&%N9&QE<G,@96%S:65R('1O('=R:71E(&%N
M9"!C;VYT<F]L+B!)=`IP<F]V:61E<R!T=V\@8VQA<W-E<RP@5V%R;DAA;F1L
M97(@86YD($1I94AA;F1L97(L('1H870@=VAE;B!Y;W4@8V]N<W1R=6-T"G1H
M96T@<F5T=7)N(&-L;W-U<F5S('1H870@8V%N+"!I;B!T=7)N+"!B92!U<V5D
M(&)Y("1324=[7U]$245?7WT@86YD"B1324=[7U]705).7U]]+B`*"E)E;&EG
M:6]N(&%L<V\@<')O=FED97,@82!4<F%C94)A8VL@9G5N8W1I;VXL('=H:6-H
M(&ES('5S960@8GD@82!$:65(86YD;&5R"F%F=&5R('EO=2!#/&1I92@I/B!T
M;R!G:79E(&$@8F5T=&5R(&AA;F1L92!O;B!T:&4@8W5R<F5N="!S8V]P92!O
M9B!Y;W5R"G-I='5A=&EO;BP@86YD('!R;W9I9&4@:6YF;W)M871I;VX@86)O
M=70@=VAE<F4@>6]U('=E<F4L('=H:6-H(&UI9VAT"FEN9FQU96YC92!W:&5R
M92!Y;W4@=V%N="!T;R!G;R!N97AT+"!E:71H97(@<F5T=7)N:6YG(&)A8VL@
M=&\@=VAE<F4@>6]U"G=E<F4L(&]R(&=O:6YG(&]N('1O('1H92!V97)Y(&QA
M<W0N(%M3;W)R>2`M($5D+ET*"E-E92!B96QO=R!F;W(@=7-A9V4@86YD(&5X
M86UP;&5S+@H*/6AE860Q(%5304=%"@H];W9E<B`X"@H]:71E;2!$:65(86YD
M;&5R(%-50@H*26YV;VME(&QI:V4@=&AI<SH*"B!L;V-A;"@D4TE'>U]?1$E%
M7U]]*2`](&YE=R!$:65(86YD;&5R('-U8B!["B`)(RXN+@H@?3L*"G=H97)E
M($,\(RXN+CX@8V]N=&%I;G,@>6]U<B!H86YD;&5R(&-O9&4N(%EO=7(@:&%N
M9&QE<B!W:6QL(')E8V5I=F4@=&AE"F9O;&QO=VEN9R!A<F=U;65N=',Z"@H@
M("1M97-S86=E+"`D9G5L;%]M97-S86=E+"`D;&5V96PL("1E=F%L+"`*("`)
M"2`@("`D:6QI;F4L("1I9FEL92P@)&]L:6YE+"`D;V9I;&4L("1O<V-O<&4*
M"D,\)&UE<W-A9V4^(&ES('1H92!M97-S86=E('!R;W9I9&5D('1O(&1I92@I
M+B!.;W1E('1H870@=&AE(&1E9F%U;'0@861D:71I;VX*;V8@(B!A="!&24Q%
M(&QI;F4@3$E.12Y<;B(@=VEL;"!H879E(&)E96X@<W1R:7!P960@;V9F(&EF
M(&ET('=A<R!P<F5S96YT+@I)9B!Y;W4@=V%N="!T;R!A9&0@<W5C:"!A(&UE
M<W-A9V4@8F%C:R!O;BP@9F5E;"!F<F5E('1O(&1O('-O('=I=&@@)&EL:6YE
M"F%N9"`D:69I;&4N"@I#/"1F=6QL7VUE<W-A9V4I(&ES('1H92!M97-S86=E
M('=I=&@@82!S8V]P92!M97-S86=E(&%D9&5D(&]N(&EF('1H97)E('=A<PIN
M;R!N97=L:6YE(&%T('1H92!E;F0@;V8@0SPD;65S<V%G93XN($-U<G)E;G1L
M>2P*=&AI<R!I<R!)/&YO=#X@=&AE(&]R:6=I;F%L(&UE<W-A9V4@=&AA="!D
M:64H*2!T86-K960@;VXL(&)U="!S;VUE=&AI;F<@"F%L;VYG('1H92!L:6YE
M<R!O9B`B(&%T(&QI;F4@,R!O9B!T:&4@979A;"!A="!L:6YE(#0@;V8@1F]O
M+G!L7&XB+@H*0SPD979A;#X@:7,@;F]N+7IE<F\@:68@=&AE(&1I92@I('=A
M<R!I;G9O:V5D(&EN<VED92!A;B!E=F%L+@H*5&AE(')E<W0@;V8@=&AE(&%R
M9W5M96YT<R!A<F4@97AP;&%I;F5D(&EN('1H92!S;W5R8V4@9F]R"E)E;&EG
M:6]N.CI4<F%C94)A8VLN(%EE<RP@22!N965D('1O(&1O8W5M96YT('1H97-E
M+"!B=70@;&%T97(L(&9O<B!T:&5Y(&%R90IA('!A:6X@=&\@97AP;&%I;BX*
M"@I)9B!Y;W5R(&AA;F1L97(@<F5T=7)N<R!D871A('5S:6YG($,\<F5T=7)N
M/B!O<B!B>2!F86QL:6YG(&]F9B!T:&4@96YD+"`*=&AE;B!T:&4@:71E;7,@
M<F5T=7)N<R!W:6QL(&)E('5S960@=&\@9FEL;"!B86-K(&EN('1H92!A<F=U
M;65N="!L:7-T+"!A;F0@"G1H92!N97AT(&AA;F1L97(@:6X@=&AE(&-H86EN
M+"!I9B!A;GDL('=I;&P@8F4@:6YV;VME9"X*"DEF('EO=7(@:&%N9&QE<B!E
M>&ET<R!U<VEN9R!#/&QA<W0^+"!T:&5N(&YO(&9U<G1H97(@:&%N9&QE<G,@
M=VEL;"!B92`*:6YV;VME9"P@86YD(&5X96-U=&EO;B!W:6QL(')E='5R;B!T
M;R!W:&5R92!D:64H*2!W87,@8V%L;&5D+B!.;W1E('1H870*<')O8F%B;'D@
M9F5W('!R;V=R86US('=I;&P@8F4@97AP96-T:6YG('1H:7,@8F5H879I;W5R
M+"!S;R!D;VXG="!D;R!I=`IW:71H;W5T('!R;W9O8V%T:6]N+@H*268@>6]U
M<B!H86YD;&5R(&5X:71S('5S:6YG($,\;F5X=#XL('1H96X@=&AE(&YE>'0@
M:&%N9&QE<B!I;B!T:&4@8VAA:6X*=VEL;"!B92!I;G9O:V5D(&1I<F5C=&QY
M+"!W:71H;W5T(&=I=FEN9R!Y;W4@82!C:&%N8V4@=&\@8VAA;F=E(&ET)W,@
M87)G=6UE;G1S"F%S('EO=2!C;W5L9"!I9B!Y;W4@=7-E9"!#/')E='5R;CXN
M"@I)9B!Y;W5R(&AA;F1L97(@:6YV;VME<R!D:64H*2P@=&AE;B!D:64H*2!W
M:6QL('!R;V-E960@87,@:68@;F\@:&%N9&QE<G,*=V5R92!I;G-T86QL960N
M($EF('EO=2!A<F4@:6YS:61E(&%N(&5V86PL('1H96X@:70@=VEL;"!E>&ET
M('1O('1H92!S8V]P90IE;F-L;W-I;F<@=&AE(&5V86PL(&]T:&5R=VES92!I
M="!W:6QL(&5X:70@=&AE('!R;V=R86TN"@H]:71E;2!787)N2&%N9&QE<B!3
M54(*"DEN=F]K92!L:6ME('1H:7,Z"@H@;&]C86PH)%-)1WM?7U=!4DY?7WTI
M(#T@;F5W(%=A<FY(86YD;&5R('-U8B!["B`)(RXN+@H@?3L*(`I&;W(@=&AE
M(')E<W0@;V8@:71S(&5X<&QA;F%T:6]N+"!S964@1&EE2&%N9&QE<BP@86YD
M('-U8G-I='5T92!W87)N*"D@9F]R"F1I92@I+@H*/6)A8VL*"CUH96%D,2!%
M6$%-4$Q%4PH*/6]V97(@.`H*/6ET96T@02!D:6%L;V<@97)R;W(@;65S<V%G
M93H*"B`D4TE'>U]?1$E%7U]](#T@;F5W($1I94AA;F1L97(@<W5B('L*("`@
M(&UY*"1M<V<L)&9M<V<L)&QE=F5L+"1E=F%L*2`]($!?.PH@("`@:68H)&5V
M86PI('L*(`D)(R!I9B!W92!A<F4@:6X@86X@979A;"P@<VMI<"!T;R!T:&4@
M;F5X="!H86YD;&5R"B`)"6YE>'0["B`)?2!E;'-E('L*(`D)(R!S:&]W(&$@
M;65S<V%G92!B;W@@9&5S8W)I8FEN9R!T:&4@97)R;W(N"@D@"7!R:6YT(")3
M:&]W365S<V%G94)O>"`D9FUS9R(["@D@"0H)(`DC(&9O<F-E('1H92!P<F]G
M<F%M('1O(&5X:70*"2`)97AI="`P.PH)(`EN97AT.PH@"7T*('T["@H]:71E
M;2!!(&AA;F1L97(@=&AA="!C:&%N9V5S(&1I92@I(&UE<W-A9V5S(&)A8VL@
M=&\@=&AE(&]R:6=I;F%L(&9O<FUA=`H*(&QO8V%L*"1324=[7U]$245?7WTI
M(#T@;F5W($1I94AA;F1L97(@<W5B('L*("`@(&UY*"1M<V<L)&9M<V<L)&QE
M=F5L+$!T<F%C92D@/2!`7SL*"@DD9FUS9R`]("1M<V<@+B`H*'-U8G-T<B@D
M;7-G+"TQ+#$I(&YE(")<;B(I(#\*"0D)"2`B(&%T("1T<F%C95LR72!L:6YE
M("1T<F%C95LQ72Y<;B(*"0D)"2`Z("(B*3L*"7)E='5R;B`H)&US9RPD9FUS
M9RD["B!].PH*/6ET96T@02!W87)N(&AA;F1L97(@=&AA="!D;V5S(&YO=&AI
M;F<@8G5T(&)R:6YG(&EN(%=A<FY(86YD;&5R)W,@9&5F875L=',@=&\@<W!R
M=6-E('5P('=A<FYI;F=S+@H*("1324=[7U]705).7U]](#T@;F5W(%=A<FY(
M86YD;&5R('-U8B![?3L*"CUI=&5M($$@=V%R;B!H86YD;&5R('1H870@;6%K
M97,@:6YV:7-I8FQE('=A<FYI;F=S('9I<VEB;&4*"B`D4TE'>U]?5T%23E]?
M?2`](&YE=R!787)N2&%N9&QE<B!S=6(@>PH@"6UY*"1M<V<L)&9M<V<L)&QE
M=F5L+"1E=F%L*2`]($!?.PH@"6EF*"1E=F%L*2!["B`)"7!R:6YT(%-41$52
M4B`B5V%R;FEN9R!H:61D96X@8GD@979A;#H@)&9M<V<B.PH@"7T*(`EN97AT
4.PH@?3L*"CUB86-K"@H]8W5T"@H@
`
end
--
Kenneth Albanowski (kjahds@kjahds.com, CIS: 70705,126)