develooper Front page | perl.perl5.porters | Postings from July 2001

Re: [PATCH B::Deparse] Make warnings handling more robust

Thread Previous | Thread Next
From:
Mike Guy
Date:
July 5, 2001 11:02
Subject:
Re: [PATCH B::Deparse] Make warnings handling more robust
Message ID:
E15IDSD-0006iC-00@draco.cus.cam.ac.uk
Robin Houston <robin@kitsite.com> wrote
> +{
> +    # Mask out the bits that L<warnings::register> uses
> +    my $WARN_MASK;
> +    BEGIN {
> +	$WARN_MASK = $warnings::Bits{all} | $warnings::DeadBits{all};
> +    }
> +    sub WARN_MASK () {
> +	return $WARN_MASK;
> +    }
>  }

That seems to be a lot of work just to achieve a pessimised version of

use constant WARN_MASK => $warnings::Bits{all} | $warnings::DeadBits{all};


Mike Guy

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About