Properly escape marked up text in dictionary views

[pspp-builds.git] / src / language / expressions / evaluate.inc.pl

diff --git a/src/language/expressions/evaluate.inc.pl b/src/language/expressions/evaluate.inc.pl
index 85112f96903e82f18b13c8b3a8728132e5a86d0c..e2fccab8d558d491055295574fe77520b66db995 100644 (file)
--- a/src/language/expressions/evaluate.inc.pl
+++ b/src/language/expressions/evaluate.inc.pl
@@ -1,12 +1,18 @@
+use strict;
+use warnings 'all';
+
 do 'generate.pl';
 
+our (@order);
+our (%ops);
+
 sub generate_output {
     for my $opname (@order) {
        my ($op) = $ops{$opname};
 
        if ($op->{UNIMPLEMENTED}) {
            print "case $opname:\n";
-           print "  abort ();\n\n";
+           print "  NOT_REACHED ();\n\n";
            next;
        }