Please review/apply patch attached.
Index: MANIFEST =================================================================== --- MANIFEST (revision 27299) +++ MANIFEST (working copy) @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Fri May 2 18:05:05 2008 UT +# generated by tools/dev/mk_manifest_and_skip.pl Sat May 3 01:29:24 2008 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -275,7 +275,6 @@ config/auto/pcre/pcre.in [] config/auto/perldoc.pm [] config/auto/pmc.pm [] -config/auto/python.pm [] config/auto/readline.pm [] config/auto/readline/readline.in [] config/auto/revision.pm [] @@ -3505,7 +3504,6 @@ t/steps/auto_pmc-02.t [] t/steps/auto_pmc-03.t [] t/steps/auto_pmc-04.t [] -t/steps/auto_python-01.t [] t/steps/auto_readline-01.t [] t/steps/auto_readline-02.t [] t/steps/auto_revision-01.t [] Index: lib/Parrot/Configure/Step/List.pm =================================================================== --- lib/Parrot/Configure/Step/List.pm (revision 27299) +++ lib/Parrot/Configure/Step/List.pm (working copy) @@ -63,7 +63,6 @@ auto::gettext auto::snprintf auto::perldoc - auto::python auto::m4 auto::ctags auto::revision Index: ports/debian/control.in =================================================================== --- ports/debian/control.in (revision 27299) +++ ports/debian/control.in (working copy) @@ -3,7 +3,7 @@ Priority: optional Maintainer: Debian Parrot Maintainers <[EMAIL PROTECTED]> Uploaders: Allison Randal <[EMAIL PROTECTED]>, Nuno Carvalho <[EMAIL PROTECTED]>, Patrick Michaud <[EMAIL PROTECTED]> -Build-Depends: debhelper (>= 5.0.0), perl, perl-doc, libgmp3-dev, libgdbm-dev, python, libicu-dev, libreadline-dev +Build-Depends: debhelper (>= 5.0.0), perl, perl-doc, libgmp3-dev, libgdbm-dev, libicu-dev, libreadline-dev Standards-Version: 3.7.2 Package: parrot Index: MANIFEST.SKIP =================================================================== --- MANIFEST.SKIP (revision 27299) +++ MANIFEST.SKIP (working copy) @@ -1,6 +1,6 @@ # ex: set ro: # $Id$ -# generated by tools/dev/mk_manifest_and_skip.pl Fri May 2 20:57:11 2008 UT +# generated by tools/dev/mk_manifest_and_skip.pl Sat May 3 01:29:24 2008 UT # # This file should contain a transcript of the svn:ignore properties # of the directories in the Parrot subversion repository. (Needed for @@ -664,8 +664,6 @@ ^languages/eclectus/Makefile/ ^languages/eclectus/driver_nqp\.pbc$ ^languages/eclectus/driver_nqp\.pbc/ -^languages/eclectus/gen_past\.pir$ -^languages/eclectus/gen_past\.pir/ ^languages/eclectus/stst\.out$ ^languages/eclectus/stst\.out/ # generated from svn:ignore of 'languages/eclectus/src/builtins/' Index: README_win32.pod =================================================================== --- README_win32.pod (revision 27299) +++ README_win32.pod (working copy) @@ -118,9 +118,6 @@ B<m4> - macro language processor L<http://gnuwin32.sourceforge.net/> -B<Python> - an interpreted, interactive, object-oriented programming language -L<http://www.python.org/> - B<SVN::Client> - Perl wrapper of Subversion client functions L<http://subversion.tigris.org/> (svn-win32-1.4.x_pl.zip) Index: t/steps/auto_python-01.t =================================================================== --- t/steps/auto_python-01.t (revision 27299) +++ t/steps/auto_python-01.t (working copy) @@ -1,51 +0,0 @@ -#! perl -# Copyright (C) 2007, The Perl Foundation. -# $Id$ -# auto_python-01.t - -use strict; -use warnings; -use Test::More tests => 2; -use Carp; -use lib qw( lib ); -use_ok('config::auto::python'); - -=for hints_for_testing Try to test all branches and conditions; consult -a recent code coverage report for guidance. - -=cut - -pass("Completed all tests in $0"); - -################### DOCUMENTATION ################### - -=head1 NAME - -auto_python-01.t - test config::auto::python - -=head1 SYNOPSIS - - % prove t/steps/auto_python-01.t - -=head1 DESCRIPTION - -The files in this directory test functionality used by F<Configure.pl>. - -The tests in this file test subroutines exported by config::auto::python. - -=head1 AUTHOR - -James E Keenan - -=head1 SEE ALSO - -config::auto::python, F<Configure.pl>. - -=cut - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 100 -# End: -# vim: expandtab shiftwidth=4: Index: config/auto/python.pm =================================================================== --- config/auto/python.pm (revision 27299) +++ config/auto/python.pm (working copy) @@ -1,67 +0,0 @@ -# Copyright (C) 2005, The Perl Foundation. -# $Id$ - -=head1 NAME - -config/auto/python - Check whether python is there - -=head1 DESCRIPTION - -Determines whether python is there. Checks also whether we have Python 2.4. - -=head1 TODO - -Store version of Python. - -=cut - -package auto::python; - -use strict; -use warnings; - -use base qw(Parrot::Configure::Step); - -use Parrot::Configure::Utils ':auto'; - - -sub _init { - my $self = shift; - my %data; - $data{description} = q{Determining whether python is installed}; - $data{result} = q{}; - return \%data; -} - -sub runstep { - my ( $self, $conf ) = @_; - - my ( $out, $err ) = capture_output( 'python', '-V' ); - my $output = join( '', $out || '', $err || '' ); - my ( $python, $major, $minor, $revision ) = $output =~ m/(Python)\s+(\d+).(\d+)(?:.(\d+))?/; - $revision = 0 unless defined $revision; - my $has_python = $python ? 1 : 0; - - $conf->data->set( has_python => $has_python ); - - my $has_python_2_4 = 0; - if ($has_python) { - $has_python_2_4 = ( $major eq '2' && $minor eq '4' ) ? 1 : 0; - $self->set_result("yes, $major.$minor.$revision"); - } - else { - $self->set_result('no'); - } - $conf->data->set( has_python_2_4 => $has_python_2_4 ); - - return 1; -} - -1; - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 100 -# End: -# vim: expandtab shiftwidth=4: