This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate PL_dirty
[perl5.git] / cpan / Devel-PPPort / parts / inc / variables
index 515e620..77b088e 100644 (file)
@@ -383,7 +383,11 @@ other_variables()
                ppp_TESTVAR(PL_debstash);
                ppp_TESTVAR(PL_defgv);
                ppp_TESTVAR(PL_diehook);
+#if defined(PL_phase) || defined(PL_Iphase)
+               ppp_PARSERVAR_dummy;
+#else
                ppp_TESTVAR(PL_dirty);
+#endif
                ppp_TESTVAR(PL_dowarn);
                ppp_TESTVAR(PL_errgv);
                ppp_TESTVAR(PL_laststatval);