From d40b412d17b0a0f98acead58cafd0a78bc3fbb7c Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Tue, 9 Mar 2010 09:36:01 -0800
Subject: [PATCH] Make error slightly better when cannot create system.i

---
 Build.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Build.PL b/Build.PL
index 6067b1b..47694c2 100644
--- a/Build.PL
+++ b/Build.PL
@@ -112,7 +112,7 @@ my $gv = $gsl_pkgcfg{'modversion'};
 my $current_minor_version;
 
 my $path_system = File::Spec->catfile('swig', 'system.i');
-open my $fh, ">", "$path_system" or die $!;
+open my $fh, ">", "$path_system" or die "Could not create system.i : $!";
 
 if (defined $gv) {
   if ($gv =~ m{\A(\d+(?:\.\d+)+)}) {
-- 
2.11.4.GIT