Extract the opcode data from regen/opcode.pl into regen/opcodes

Whilst it is possible to open regen/opcode.pl and parse it to find the __END__
token, it's not the cleanest approach.

1 files changed, 1 insertions, 4 deletions

diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t
index 7221c21da2..616a848178 100644
--- a/dist/Safe/t/safeops.t
+++ b/dist/Safe/t/safeops.t
@@ -28,10 +28,7 @@ while (<DATA>) {
     $code{$1} = $2;
 }
 
-open my $fh, '<', '../../regen/opcode.pl' or die "Can't open opcode.pl: $!";
-while (<$fh>) {
-    last if /^__END__/;
-}
+open my $fh, '<', '../../regen/opcodes' or die "Can't open opcodes: $!";
 while (<$fh>) {
     chomp;
     next if !$_ or /^#/;