Add test from [perl #8026]

p4raw-id: //depot/maint-5.8/perl@18218

diff --git a/t/op/pack.t b/t/op/pack.t
index f047889..a4c5db0 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 5825;
+plan tests => 5826;
 
 use strict;
 use warnings;
@@ -992,3 +992,6 @@ foreach my $template (qw(A Z c C s S i I l L n N v V q Q j J f d F D u U w)) {
     }
   }
 }
+
+ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
+