From: Vincent Pit <vince@profvince.com>
Date: Fri, 3 Oct 2008 17:16:11 +0000 (+0200)
Subject: Use $Config{path_sep} whenever possible
X-Git-Tag: v0.08~9
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=aa1ba53f7e77b33463557fef07603e5b0881f56c;p=perl%2Fmodules%2FTest-Valgrind.git

Use $Config{path_sep} whenever possible
---

diff --git a/Makefile.PL b/Makefile.PL
index f2df413..35f78dc 100644
--- 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 3ea8c8f..31a6323 100644
--- 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 = $_;