Author: bernhard
Date: Tue May 1 07:21:30 2007
New Revision: 18372
Modified:
trunk/lib/Parrot/Pmc2c/delegate.pm
Log:
#42616: Parrot won't build with perl-5.6.
Make Parrot work with Perl 5.8.0.
A minor tweak in lib/Parrot/Pmc2c/delegate.pm
Courtesy of Bob Rogers <[EMAIL PROTECTED]>
Modified: trunk/lib/Parrot/Pmc2c/delegate.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/delegate.pm (original)
+++ trunk/lib/Parrot/Pmc2c/delegate.pm Tue May 1 07:21:30 2007
@@ -96,9 +96,11 @@
# I think that these will be out by one - NWC
my $l = $self->line_directive( $line, "delegate.c" );
+ # [Leave the space between "${decl}" and the "{"; otherwise Perl 5.8.0
+ # thinks this is a hashref. -- rgr, 29-Apr-07.]
my $cout = <<EOC;
$l
-${decl}{
+${decl} {
STRING *meth = CONST_STRING(interp, "$meth");
PMC *sub = Parrot_find_vtable_meth(interp, pmc, meth);
if (PMC_IS_NULL(sub))
