]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Move __PACKAGE__ to a more proper place
authorVincent Pit <vince@profvince.com>
Fri, 6 Mar 2009 22:32:34 +0000 (23:32 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 7 Mar 2009 01:06:02 +0000 (02:06 +0100)
Types.xs

index 7d50b19fdbbf1a393773dbee7a5ad6e840ac3484..6fa09b1c70255040abd23a15434a5789d7df564a 100644 (file)
--- a/Types.xs
+++ b/Types.xs
@@ -6,6 +6,9 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#define __PACKAGE__     "Lexical::Types"
+#define __PACKAGE_LEN__ (sizeof(__PACKAGE__)-1)
+
 /* --- Compatibility wrappers ---------------------------------------------- */
 
 #define LT_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
@@ -32,9 +35,6 @@
 # define HvNAMELEN_get(H) strlen(HvNAME_get(H))
 #endif
 
-#define __PACKAGE__     "Lexical::Types"
-#define __PACKAGE_LEN__ (sizeof(__PACKAGE__)-1)
-
 /* --- Helpers ------------------------------------------------------------- */
 
 /* ... Hints ............................................................... */