X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=68bc21789fda3452a09550ecd9a3276cb8c0a2b1;hb=4ccff394a949fe8d99359c5ea6d154f85191f731;hp=c2bb4080b9ffc861662406889162e63e2ca77529;hpb=54c73ca86bbd7cbe8f2ddec71bb74571b4675ef7;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");
    }
   }