Ensure that PVA.pl returns a true value.

p4raw-id: //depot/perl@23393

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 18f0033..58092f1 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -1023,6 +1023,7 @@ sub UnicodeData_Txt()
            push @PVA, "\n", "\%utf8::$name = (\n",
                simple_dumper (%{$utf8::{$name}}), ");\n";
        }
+       push @PVA, "1;\n";
        WriteIfChanged("PVA.pl", @PVA);
     }