# HG changeset patch
# User Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1516867868 -32400
# Node ID 0b502eb897ccd5e09c5adba288914eaec08e1860
# Parent  7d3faa099bc6f104388d5bc44c0a389fb6664661
add message

diff -r 7d3faa099bc6 -r 0b502eb897cc lib/Slideshow/Util.pm
--- a/lib/Slideshow/Util.pm	Thu Jan 25 17:01:05 2018 +0900
+++ b/lib/Slideshow/Util.pm	Thu Jan 25 17:11:08 2018 +0900
@@ -96,6 +96,7 @@
 
     $target //= 'slide.md';
 
+    say "[AUTO] BUILD at $dir/$target";
 
     local $CWD = $dir;
 
@@ -111,27 +112,38 @@
 
 sub upload {
 
+    say "[AUTO]hg addremove";
     my ($stdout,$stderr,$exit) = capture {
         system("hg addremove");
         system("hg add");
     };
 
-    unless($stderr){
-        say $stdout;
-    } else {
-        croak "didn't commit";
+    if ($stderr) {
+        croak "didn't add";
     }
 
+    say "[AUTO]hg commit -m auto-Update generated slides by script";
+
     ($stdout,$stderr,$exit) = capture {
         system('hg commit -m "auto-Update generated slides by script"');
     };
 
-    unless($stderr){
-        say "$stdout";
+    if ($stderr) {
+        say $stderr;
+        croak "didn't commit";
+    }
+    
+    say "[AUTO]hg push";
+
+    ($stdout,$stderr,$exit) = capture {
         system('hg push');
-    } else {
+    };
+
+    if ( $stderr ) {
         say $stderr;
-        croak "didn't push";
+        croak "didn't commit";
+    } else {
+        say $stdout;
     }
 }