This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
do $file; won't propagate errors from die, as do is an implicit eval.
[perl5.git]
/
t
/
op
/
regexp_noamp.t
diff --git
a/t/op/regexp_noamp.t
b/t/op/regexp_noamp.t
index
8a6dd28
..
9aa00b5
100755
(executable)
--- a/
t/op/regexp_noamp.t
+++ b/
t/op/regexp_noamp.t
@@
-3,7
+3,7
@@
$skip_amp = 1;
for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
if (-r $file) {
- do $file;
+ do $file
or die $@
;
exit;
}
}