This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove vestigial ORANGE references
authorDavid Mitchell <davem@iabyn.com>
Sun, 30 Jan 2011 14:38:29 +0000 (14:38 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 30 Jan 2011 23:58:26 +0000 (23:58 +0000)
This was a temporary type used while regexes were in the process
of being promoted to first-class SVs

dump.c
perl.h

diff --git a/dump.c b/dump.c
index a8de393..463946a 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2705,7 +2705,7 @@ Perl_sv_xmlpeek(pTHX_ SV *sv)
        sv_catpv(t, " BIND=\"");
        break;
     case SVt_REGEXP:
-       sv_catpv(t, " ORANGE=\"");
+       sv_catpv(t, " REGEXP=\"");
        break;
     case SVt_PVFM:
        sv_catpv(t, " FM=\"");
diff --git a/perl.h b/perl.h
index d3fee5d..c7139cd 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2425,7 +2425,6 @@ typedef struct STRUCT_SV SV;
 typedef struct av AV;
 typedef struct hv HV;
 typedef struct cv CV;
-typedef struct regexp ORANGE;  /* This is the body structure.  */
 typedef struct p5rx REGEXP;
 typedef struct gp GP;
 typedef struct gv GV;