I'm not sure what's ultimately going on here but quoting the argument
to the eval somehow causes it to come up with a different answer than
leaving it unquoted:
$ perl -e "open qq/<nofile.dat/; print eval('$!{ENOENT}');"
0
$ perl -e "open qq/<nofile.dat/; print eval($!{ENOENT});"
2
Unless there is some reason for those quotes that I'm not aware of,
this should take care of it (well, it makes the test pass on VMS at
any rate):
--- t/op/taint.t;-0 Mon Mar 11 13:57:22 2002
+++ t/op/taint.t Tue Mar 19 11:29:12 2002
@@ -407,7 +407,7 @@
# Try first new style but allow also old style.
# We do not want the whole taint.t to fail
# just because Errno possibly failing.
- test 73, eval('$!{ENOENT}') ||
+ test 73, eval($!{ENOENT}) ||
$! == 2 || # File not found
($Is_Dos && $! == 22) ||
($^O eq 'mint' && $! == 33);
[end of patch]
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
