This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / dump.c
diff --git a/dump.c b/dump.c
index a51a012..7839ed7 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -66,7 +66,7 @@ GV* gv;
        gv_fullname(sv,gv);
        dump("\nSUB %s = ", SvPVX(sv));
        if (CvUSERSUB(GvCV(gv)))
-           dump("(usersub 0x%x %d)\n",
+           dump("(xsub 0x%x %d)\n",
                (long)CvUSERSUB(GvCV(gv)),
                CvUSERINDEX(GvCV(gv)));
        else if (CvROOT(GvCV(gv)))