Wrap the macro arguments for ck_proto in ().

[p5sagit/p5-mst-13.2.git] / lib / utf8_heavy.pl

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index de4d01d..8a2ba71 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -194,7 +194,7 @@ sub SWASHNEW {
                return $Cache{$class, $file};
            }
 
-           $list = do $file;
+           $list = do $file; die $@ if $@;
        }
 
         $ListSorted = 1; ## we know that these lists are sorted