From: Christian Walde <walde.christian@googlemail.com>
Date: Sun, 15 Jul 2012 14:02:22 +0000 (+0200)
Subject: File::Spec is much better suited for finding /dev/null
X-Git-Tag: v0.001000~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28268771c7aaee43c82df498c059fcca647720cc;p=p5sagit%2FDistar.git

File::Spec is much better suited for finding /dev/null
---

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 26a41c8..c12a96c 100644
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -4,6 +4,7 @@ use strictures 1;
 use base qw(Exporter);
 
 use Config;
+use File::Spec;
 
 our @EXPORT = qw(
   author manifest_include run_preflight
@@ -59,7 +60,7 @@ sub run_preflight {
   system("git fetch");
 
   my $make = $Config{make};
-  my $null = $^O ne 'MSWin32' ? "/dev/null" : "NUL";
+  my $null = File::Spec->devnull;
 
   for (scalar `"$make" manifest 2>&1 >$null`) {
     $_ && die "$make manifest changed:\n$_ Go check it and retry";