On Sun, Jan 20, 2002 at 12:02:22AM +0000, Jonathan Stowe wrote:
> #!/usr/bin/perl -P
>
> #define BEGIN {
> #define END }
>
> if ($foo)
> BEGIN
> do_foo_stuff()
> END
> else
> BEGIN
> do_other_stuff()
> END
>
> Yes I don't know anything about source filters and lord knows what happens
> with non block braces :)And indeed what happens to a real BEGIN block :-) -- David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david There is no sigmonster
