Use $Config{path_sep} whenever possible

diff --git a/Makefile.PL b/Makefile.PL
index f2df41308238a92cd83fc91f0896a59b73e6f93f..35f78dccc4a4d7b48299b4a47ef0ba4de0f16e84 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,7 +14,7 @@ BEGIN {
 
 my $vg;
 print 'Checking for valgrind >= 3.1.0 in PATH... ';
-for (split /:/, $ENV{PATH}) {
+for (split /$Config{path_sep}/, $ENV{PATH}) {
  $_ .= '/valgrind';
  if (-x) {
   my $ver = qx/$_ --version/;

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index 3ea8c8fcab54fac8525df48d1e03c8c6c20e98c1..31a63234601267e148152ffd4f031ee85f68af74 100644 (file)
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -139,7 +139,8 @@ sub import {
   $callers = int $callers;
   my $vg = Test::Valgrind::Suppressions::VG_PATH;
   if (!$vg || !-x $vg) {
-   for (split /:/, $ENV{PATH}) {
+   require Config;
+   for (split /$Config::Config{path_sep}/, $ENV{PATH}) {
     $_ .= '/valgrind';
     if (-x) {
      $vg = $_;