[perl #40559] $FindBin::Bin has a trailing / in scripts on Perl 5.8.3

[Kevin Tew]

# New Ticket Created by Kevin Tew
# Please include the string: [perl #40559]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40559 >

defaults.pm | 4 +++-
1 files changed, 3 insertions(+), 1 deletion(-)

Fixes this problem
Generating makefiles and other build files...
step gen::makefiles died during execution:
config/gen/makefiles/bcg.in:73: line ends in a slash

at Configure.pl line 501

[Kevin Tew]

Used Cwd::abs_path like FindBin in perl 5.8.6 does.

defaults.pm | 3 ++-
1 files changed, 2 insertions(+), 1 deletion(-)

[Jerry Gay]

looks like a valid problem, and a valid solution... commit away!
~jerry

> Index: config/init/defaults.pm
> ===================================================================
> --- config/init/defaults.pm (revision 14936)
> +++ config/init/defaults.pm (working copy)
> @@ -21,6 +21,7 @@
> use Config;
> use FindBin; # see build_dir
> use Parrot::Configure::Step;
> +use Cwd qw(abs_path);
>
> $description = q{Setting up Configure's default values};
>
> @@ -35,7 +36,7 @@
> debugging => $conf->options->get('debugging') ? 1 : 0,
> optimize => '',
> verbose => $conf->options->get('verbose'),
> - build_dir => $FindBin::Bin,
> + build_dir => abs_path($FindBin::Bin),
>
> # Compiler -- used to turn .c files into object files.
> # (Usually cc or cl, or something like that.)
>
>