Merge lp:~vlad-lesin/percona-server/5.1-bug-1382782 into lp:percona-server/5.1

[Vlad Lesin]

Bug #1382782 fix.

The return value of 'close' perl function is checked to detect error
on mysqld execution during creating and filling system tables from
mysql_install_db script.

http://jenkins.percona.com/view/PS%205.1/job/percona-server-5.1-param/612/

[Laurynas Biveinis (laurynas-biveinis)]

review: Approve

=== modified file 'Percona-Server/scripts/mysql_install_db.pl.in'
--- Percona-Server/scripts/mysql_install_db.pl.in	2013-02-25 14:26:00 +0000
+++ Percona-Server/scripts/mysql_install_db.pl.in	2014-10-19 19:54:20 +0000
@@ -466,7 +466,20 @@
 
     print PIPE $_;
   }
-  close PIPE;
+  if (!close PIPE)
+  {
+     if ($!)
+     {
+       error($opt, "Error closing mysqld pipe: $!");
+     }
+     else
+     {
+       error($opt,
+         "Installation of system tables failed!",
+         "mysqld returned $? exit status",
+         "Examine the logs in $opt->{ldata} for more information.");
+     }
+  };
   close SQL;
   close SQL2;
 
@@ -487,7 +500,20 @@
     {
       print PIPE $_;
     }
-    close PIPE;
+    if (!close PIPE)
+    {
+      if ($!)
+      {
+        error($opt, "Error closing mysqld pipe: $!");
+      }
+      else
+      {
+        error($opt,
+          "Installation of system tables failed!",
+          "mysqld returned $? exit status",
+          "Examine the logs in $opt->{ldata} for more information.");
+      }
+    };
     close SQL;
 
     report_verbose($opt,"OK");