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

[Kevin Tew]

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


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


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.)