Change 23629 by [EMAIL PROTECTED] on 2004/12/09 09:57:42
Fix test to cope with the previous h2ph change.
Affected files ...
... //depot/perl/t/lib/h2ph.pht#12 edit
Differences ...
==== //depot/perl/t/lib/h2ph.pht#12 (text) ====
Index: perl/t/lib/h2ph.pht
--- perl/t/lib/h2ph.pht#11~21159~ Wed Sep 10 08:10:06 2003
+++ perl/t/lib/h2ph.pht Thu Dec 9 01:57:42 2004
@@ -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);
}
End of Patch.
