use $Config{path_sep} instead of working it out on our own
authorTony Cook <tony@develop=help.com>
Thu, 19 Aug 2010 07:58:05 +0000 (07:58 +0000)
committerTony Cook <tony@develop=help.com>
Thu, 19 Aug 2010 07:58:05 +0000 (07:58 +0000)
lib/Imager/Probe.pm

index e907544c145476496fdd0d90eade3af5fbf3c366..8e0c3274f53d9ab9ec663928dd80ecc076d2738d 100644 (file)
@@ -75,8 +75,7 @@ sub _probe_pkg {
   my @pkgcfg_paths = map { "$_/pkgconfig" } _lib_paths( $req );
   push @pkgcfg_paths, $ENV{ 'PKG_CONFIG_PATH' } if $ENV{ 'PKG_CONFIG_PATH' };
 
-  my $pathsep = $^O eq 'MSWin32' ? q{;} : q{:};
-  local $ENV{ 'PKG_CONFIG_PATH' } = join $pathsep, @pkgcfg_paths;
+  local $ENV{ 'PKG_CONFIG_PATH' } = join $Config{path_sep}, @pkgcfg_paths;
 
   is_exe('pkg-config') or return;
   my $redir = $^O eq 'MSWin32' ? '' : '2>/dev/null';