Bug #70504 for CPAN-Reporter: 03_config_file.t fails with extra "/" in path

Ok, on further inspection, it appears File::Glob is wrong here: 

perl -MFile::Glob -E 'say File::Glob::bsd_glob(q{~/other.json})'

/tmp/portage/dev-perl-CPAN-Reporter-1.200.400/temp//other.json

 

perl -MFile::Glob\ 9999
File::Glob version 9999 required--this is only version 1.13.
 

Problem seems to be that $HOME has a trailing slash, and bsd_glob doesn't normalise that out

 

 HOME=/  perl -MFile::Glob -E 'say File::Glob::bsd_glob(q{~/other.json})'                                                                                                                                                     
//other.json
 

HOME=/foo  perl -MFile::Glob -E 'say File::Glob::bsd_glob(q{~/other.json})'                                                                                                                                                  
/foo/other.json

 

 HOME=/foo/  perl -MFile::Glob -E 'say File::Glob::bsd_glob(q{~/other.json})'                                                                                                                                                 
/foo//other.json

 

Behaves this way on File::Glob 1.07 and 1.17  as well.

 

My suggestion is to possibly pass the result from bsd_glob thorugh canonpath

 

HOME=/foo/  perl -MFile::Spec -MFile::Glob -E 'say File::Spec->canonpath(File::Glob::bsd_glob(q{~/other.json}))'
/foo/other.json
 

# Should solve this.

On 2011-08-26 21:16:55, KENTNL wrote:

Show quoted text

https://github.com/dagolden/cpan-reporter/pull/9

From 43e99d71a67a4cc4a0e115f65d16a04ec6a4e0b3 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Fri, 2 Mar 2012 11:27:53 +1300
Subject: [PATCH] Canonicalise the path returned by bsd_glob as its sometimes got extra slashes in it

---
 lib/CPAN/Reporter/Config.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lib/CPAN/Reporter/Config.pm b/lib/CPAN/Reporter/Config.pm
index 291c01c..0fe23d9 100644
--- a/lib/CPAN/Reporter/Config.pm
+++ b/lib/CPAN/Reporter/Config.pm
@@ -457,7 +457,7 @@ sub _normalize_id_file {
         $id_file = File::Spec->catdir(File::HomeDir->my_home, $1);
     }
     elsif ( $id_file =~ /~/ ) {
-        $id_file = File::Glob::bsd_glob( $id_file );
+        $id_file = File::Spec->canonpath(File::Glob::bsd_glob( $id_file ));
     }
     unless ( File::Spec->file_name_is_absolute( $id_file ) ) {
         $id_file = File::Spec->catfile(
--
1.7.3.4