From bd591f193f46ace31153924828d273501631cd59 Mon Sep 17 00:00:00 2001
From: Jonathan Leto <leto@erebus.leto.net>
Date: Sat, 14 Jun 2008 11:06:57 -0700
Subject: [PATCH] Fix portability bug in Build.PL

---
 Build.PL | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Build.PL b/Build.PL
index 4c3a87b..17d1e9a 100644
--- a/Build.PL
+++ b/Build.PL
@@ -112,10 +112,9 @@ sub compile_swig {
    
     push @swig_flags, $self->split_like_shell( qq{-module Math::GSL::$file_base} );
 
-    my $blib_lib =  File::Spec->catfile('blib','lib');
-    #my $blib_lib = 'blib/lib';
+    my $blib_lib =  File::Spec->catfile(qw/blib lib/);
 
-    mkdir File::Spec->catfile($blib_lib, 'Math/GSL');
+    mkdir File::Spec->catfile($blib_lib, qw/Math GSL/);
 
     print "+++swig -o $c_file -outdir $blib_lib -perl5 @swig_flags $file\n"; 
     $self->do_system(@swig, '-o', $c_file, '-outdir', $blib_lib . '/Math/GSL/',
@@ -124,7 +123,7 @@ sub compile_swig {
     
     my $pm_file = "${file_base}.pm";
     my $from = File::Spec->catfile($blib_lib, $pm_file);
-    my $to   = File::Spec->catfile("lib", $pm_file);
+    my $to   = File::Spec->catfile(qw/lib Math GSL/, $pm_file);
 
     print "Copying from: $from, to: $to; it makes the CPAN indexer happy.\n";
     copy($from,$to);
-- 
2.11.4.GIT