develooper Front page | perl.perl5.porters | Postings from November 1999

PRAGMA musing: "no scope"

Thread Next
From:
Tom Christiansen
Date:
November 19, 1999 18:13
Subject:
PRAGMA musing: "no scope"
Message ID:
199911200212.TAA16722@jhereg.perl.com
    BEGIN {
	no scope;  # previous nested lexical scope boundary erased
	require Config;
	if ($Config::Config{archname} =~ /i186/) {
	    no scope;  # previous nested lexical scope boundary erased
	    use integer;
	    no  warnings qw/numeric/;
	    use warnings qw/FATAL overflow/;
	} 
    } 

This is only slightly more disgusting than upscope.  And it doesn't
allow an unrelated/non-nested scope to be pierced, such as a do()ne file.

--tom

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