X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=autovivification.xs;h=68bc21789fda3452a09550ecd9a3276cb8c0a2b1;hb=refs%2Ftags%2Fv0.02;hp=c2bb4080b9ffc861662406889162e63e2ca77529;hpb=4157d0412d5b52aaa70de077cb79cc26e7ff0c7e;p=perl%2Fmodules%2Fautovivification.git

diff --git a/autovivification.xs b/autovivification.xs
index c2bb408..68bc217 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -309,9 +309,6 @@ STATIC OP *a_pp_rv2hv(pTHX) {
 
 /* ... pp_deref (aelem,helem,rv2sv,padsv) .................................. */
 
-STATIC const char a_msg_forbidden[]  = "Reference vivification forbidden";
-STATIC const char a_msg_impossible[] = "Can't vivify reference";
-
 STATIC OP *a_pp_deref(pTHX) {
  a_op_info oi;
  UV flags;
@@ -334,11 +331,11 @@ deref:
    SPAGAIN;
    if (!SvOK(TOPs)) {
     if (flags & A_HINT_STRICT)
-     croak(a_msg_forbidden);
+     croak("Reference vivification forbidden");
     else if (flags & A_HINT_WARN)
-      warn(a_msg_forbidden);
+      warn("Reference was vivified");
     else /* A_HINT_STORE */
-     croak(a_msg_impossible);
+     croak("Can't vivify reference");
    }
   }