perly-fixer

[p5sagit/p5-mst-13.2.git] / doop.c

diff --git a/doop.c b/doop.c
index d59dba6..7a8f883 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -872,7 +872,7 @@ Perl_do_vecset(pTHX_ SV *sv)
     lval = SvUV(sv);
     offset = LvTARGOFF(sv);
     if (offset < 0)
-       Perl_croak(aTHX_ "Assigning to negative offset in vec");
+       Perl_croak(aTHX_ "Negative offset to vec in lvalue context");
     size = LvTARGLEN(sv);
     if (size < 1 || (size & (size-1))) /* size < 1 or not a power of two */
        Perl_croak(aTHX_ "Illegal number of bits in vec");