new md5sum for modified MD5.xs file

[p5sagit/p5-mst-13.2.git] / xsutils.c

diff --git a/xsutils.c b/xsutils.c
index 187d9f7..d15de65 100644 (file)
--- a/xsutils.c
+++ b/xsutils.c
@@ -127,6 +127,9 @@ XS(XS_attributes_bootstrap)
     dXSARGS;
     char *file = __FILE__;
 
+    if( items > 0 )
+        Perl_croak(aTHX_ "Usage: bootstrap");
+
     newXSproto("attributes::_warn_reserved", XS_attributes__warn_reserved, file, "");
     newXS("attributes::_modify_attrs", XS_attributes__modify_attrs,    file);
     newXSproto("attributes::_guess_stash", XS_attributes__guess_stash, file, "$");
@@ -235,7 +238,7 @@ usage:
                stash = CvSTASH(sv);
            break;
        case SVt_PVMG:
-           if (!(SvFAKE(sv) && SvTIED_mg(sv, '*')))
+           if (!(SvFAKE(sv) && SvTIED_mg(sv, PERL_MAGIC_glob)))
                break;
            /*FALLTHROUGH*/
        case SVt_PVGV: