X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=a400afde7a4ef860f8a228dc56b97a5179e7b292;hb=b1705371d0b8be388540f125bde19d10e3e14ea8;hp=4e2f45f229452b65447d2af2bbfe0ec92c6f92f3;hpb=50d757921d9013018ad16813fa5264a5791c6ad3;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 4e2f45f..a400afd 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -545,7 +545,7 @@ PROTOTYPES: ENABLE
 BOOT:
 {
  HV *stash = gv_stashpv(__PACKAGE__, 1);
- newCONSTSUB(stash, "CURRENT", newSViv(0));
+ newCONSTSUB(stash, "HERE", newSViv(0));
 }
 
 SV *