Commit 957063d7f14b0e76e2449c5a2fb767cdbb8e255b - libbareword-filehandles-perl

Add comment explaining why $^H |= 0x20000 is necessary Dagfinn Ilmari Mannsåker 4 years ago

1 changed file(s) with 4 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

lib/bareword/filehandles.pm less more

40	40
41	41	=cut
42	42
43		sub unimport { $^H \|= 0x20000; $^H{__PACKAGE__.'/disabled'} = 1 }
	43	sub unimport {
	44	$^H \|= 0x20000; # HINT_LOCALIZE_HH, to make %^H lexical on 5.8
	45	$^H{__PACKAGE__.'/disabled'} = 1;
	46	}
44	47
45	48	=method import
46	49