git-remote-mediawiki: check return value of open
[gitweb.git] / contrib / mw-to-git / git-remote-mediawiki.perl
index 2cfbc0a6b278693078ed0c945d51e118a0b92c06..82684f385dc1410fd60d802c967ae663add4b118 100755 (executable)
@@ -220,11 +220,11 @@ sub get_mw_page_list {
        my $pages = shift;
        my @some_pages = @$page_list;
        while (@some_pages) {
-               my $last = 50;
-               if ($#some_pages < $last) {
-                       $last = $#some_pages;
+               my $last_page = 50;
+               if ($#some_pages < $last_page) {
+                       $last_page = $#some_pages;
                }
-               my @slice = @some_pages[0..$last];
+               my @slice = @some_pages[0..$last_page];
                get_mw_first_pages(\@slice, $pages);
                @some_pages = @some_pages[51..$#some_pages];
        }
@@ -337,8 +337,12 @@ sub get_mw_pages {
 sub run_git {
        my $args = shift;
        my $encoding = (shift || "encoding(UTF-8)");
-       open(my $git, "-|:$encoding", "git " . $args);
-       my $res = do { local $/; <$git> };
+       open(my $git, "-|:$encoding", "git " . $args)
+           or die "Unable to open: $!\n";
+       my $res = do {
+               local $/ = undef;
+               <$git>
+       };
        close($git);
 
        return $res;