h2ph.t is failing because the expected results don't take into account the change from using local() to my(). Attached patch fixes.
-- Michael G Schwern [EMAIL PROTECTED] http://www.pobox.com/~schwern/ Good tidings, my native American Indian friend! America will soon again be yours! Please accept 5th Avenue as an initial return!
Index: t/lib/h2ph.pht =================================================================== --- t/lib/h2ph.pht (revision 18122) +++ t/lib/h2ph.pht (working copy) @@ -4,13 +4,13 @@ unless(defined(&SQUARE)) { sub SQUARE { - local($x) = @_; + my($x) = @_; eval q((($x)*($x))); } } unless(defined(&ERROR)) { eval 'sub ERROR { - local($x) = @_; + my($x) = @_; eval q( &fprintf( &stderr, \\"%s\\\\n\\", $x->[2][3][0])); }' unless defined(&ERROR); } @@ -19,12 +19,12 @@ # "$Revision h2ph.h,v 1.0 98/05/04 20:42:14 billy $" undef(&MAX) if defined(&MAX); eval 'sub MAX { - local($a,$b) = @_; + my($a,$b) = @_; eval q((($a) > ($b) ? ($a) : ($b))); }' unless defined(&MAX); if(defined(&__SOME_UNIMPORTANT_PROPERTY)) { eval 'sub MIN { - local($a,$b) = @_; + my($a,$b) = @_; eval q((($a) < ($b) ? ($a) : ($b))); }' unless defined(&MIN); }