Modified Makefile.PL

pawa- · Jan 9, 2013 · 8ed059f · 8ed059f
1 parent 66cfbc4
commit 8ed059f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -104,7 +104,7 @@ sub rewrite_model_path
 {
     my $pm_path = './lib/Text/KyTea.pm';
 
-    open(my $in, '<', $pm_path) or $!;
+    open(my $in, '<', $pm_path) or die $!;
     my @lines = <$in>;
     close($in);
 
@@ -117,7 +117,7 @@ sub rewrite_model_path
         }
     }
 
-    open(my $out, '>', $pm_path) or $!;
+    open(my $out, '>', $pm_path) or die $!;
     print {$out} @lines;
     close($out);
 }