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

[via RT]

# 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


Index: config/init/defaults.pm
===================================================================
--- config/init/defaults.pm     (revision 14936)
+++ config/init/defaults.pm     (working copy)
@@ -31,11 +31,13 @@
     my ($self, $conf) = @_;
 
     # We need a Glossary somewhere!
+    my $findbin = $FindBin::Bin;
+    $findbin =~ s/\/$//g;
     $conf->data->set(
         debugging => $conf->options->get('debugging') ? 1 : 0,
         optimize  => '',
         verbose   => $conf->options->get('verbose'),
-        build_dir => $FindBin::Bin,
+        build_dir => $findbin,
 
         # Compiler -- used to turn .c files into object files.
         # (Usually cc or cl, or something like that.)