This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unpack P* uses random length for item
authorWolfgang Laun <Wolfgang.Laun@alcatel.at>
Mon, 26 Nov 2001 19:56:32 +0000 (20:56 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 27 Nov 2001 00:08:23 +0000 (00:08 +0000)
Message-ID: <200111261956320450.01E7217F@smtp.chello.at>

p4raw-id: //depot/perl@13288

pod/perldiag.pod
pp_pack.c
t/op/pack.t

index aab7831..34be258 100644 (file)
@@ -2711,6 +2711,10 @@ value of the environment variable PERLIO.
 process which isn't a subprocess of the current process.  While this is
 fine from VMS' perspective, it's probably not what you intended.
 
+=item P must have an explicit size
+
+(F) The unpack format P must have an explicit size, not "*".
+
 =item POSIX syntax [%s] belongs inside character classes in regex;
 
 marked by <-- HERE in m/%s/
index 705ee12..ceb01c5 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -922,6 +922,8 @@ PP(pp_unpack)
            }
            break;
        case 'P':
+           if (star)
+               DIE(aTHX_ "P must have an explicit size");
            EXTEND(SP, 1);
            if (sizeof(char*) > strend - s)
                break;
index 5107510..bb63cff 100755 (executable)
@@ -1,6 +1,6 @@
 #!./perl -w
 
-print "1..614\n";
+print "1..615\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -695,3 +695,12 @@ foreach (
        $s eq "ABCABCABCABCABCABCABCABCABCABC" &
        $y == 42);
 }
+
+{
+    # 615
+
+    # from Wolfgang Laun:Lfix in change #13288
+
+    eval { unpack("P*", "abc") };
+    ok($@ =~ /P must have an explicit size/);
+}