do $file; won't propagate errors from die, as do is an implicit eval.

So need to propagate errors with $@.

p4raw-id: //depot/perl@29723

1 files changed, 1 insertions, 1 deletions

diff --git a/t/uni/case.pl b/t/uni/case.pl
index e27771b192..9d142ed685 100644
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -23,7 +23,7 @@ sub casetest {
     my $file = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
 						      "lib", "unicore", "To"),
 				   "$base.pl");
-    my $simple = do $file;
+    my $simple = do $file or die $@;
     my %simple;
     for my $i (split(/\n/, $simple)) {
 	my ($k, $v) = split(' ', $i);