Make error slightly better when cannot create system.i
authorDuke Leto <jonathan@leto.net>
Tue, 9 Mar 2010 17:36:01 +0000 (9 09:36 -0800)
committerDuke Leto <jonathan@leto.net>
Tue, 9 Mar 2010 17:36:01 +0000 (9 09:36 -0800)
Build.PL

index 6067b1b..47694c2 100644 (file)
--- 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+)+)}) {