The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub postamble { my $headerpath = main::headerpath(); my @headers = map { File::Spec->catfile($headerpath, $_) } qw(op.h cop.h); my $noecho = shift->{NOECHO};

" B\$(OBJ_EXT) : defsubs.h

defsubs.h :: @headers defsubs_h.PL \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) defsubs_h.PL defsubs.h $headerpath " }

sub processPL { my $text = shift->SUPER::processPL(@_); # Append our extra parameter $text =~ s/^\t.*defsubs_h\.PL.*/$& . ' ' . main::headerpath()/me; $text; }