Rename CURRENT to HERE

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index 4e2f45f229452b65447d2af2bbfe0ec92c6f92f3..a400afde7a4ef860f8a228dc56b97a5179e7b292 100644 (file)
--- 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 *