Author: jkeenan
Date: Wed Dec 31 12:54:55 2008
New Revision: 34724
Modified:
branches/pdd30install_stage3/config/gen/opengl.pm
branches/pdd30install_stage3/t/steps/gen_platform-01.t
Log:
1. Update test in t/steps/gen_platform-01.t to reflect fact that _handle_begin_c() now takes \$conf as first argument.
2. gen::opengl needs to import Parrot::BuildUtil::add_to_generated()..
Modified: branches/pdd30install_stage3/config/gen/opengl.pm
==============================================================================
--- branches/pdd30install_stage3/config/gen/opengl.pm (original)
+++ branches/pdd30install_stage3/config/gen/opengl.pm Wed Dec 31 12:54:55 2008
@@ -42,7 +42,7 @@
use base qw(Parrot::Configure::Step);
use Parrot::Configure::Utils ':gen';
-
+use Parrot::BuildUtil;
my @GLUT_1_CALLBACKS = (
[ 'Display', 'void' ],
Modified: branches/pdd30install_stage3/t/steps/gen_platform-01.t
==============================================================================
--- branches/pdd30install_stage3/t/steps/gen_platform-01.t (original)
+++ branches/pdd30install_stage3/t/steps/gen_platform-01.t Wed Dec 31 12:54:55 2008
@@ -181,7 +181,7 @@
my $plat_c = q{src/platform.c};
open my $PLATFORM_C, '>', $plat_c
or croak "Unable to open handle for writing";
- $step->_handle_begin_c($platform, $PLATFORM_C);
+ $step->_handle_begin_c($conf, $platform, $PLATFORM_C);
close $PLATFORM_C or croak "Unable to close handle after writing";
my $text = _slurp( $plat_c );