From 1a7ef62ffb7a10a09074b73ec7f082d842e45c27 Mon Sep 17 00:00:00 2001
From: Tianon Gravi <admwiggin@gmail.com>
Date: Tue, 21 Oct 2014 22:29:49 -0600
Subject: [PATCH] Add a basic Dockerfile and fix some minor issues in push.pl

---
 Dockerfile | 10 ++++++++++
 push.pl    |  9 ++++++---
 2 files changed, 16 insertions(+), 3 deletions(-)
 create mode 100644 Dockerfile

diff --git a/Dockerfile b/Dockerfile
new file mode 100644
index 000000000..3342ecc5b
--- /dev/null
+++ b/Dockerfile
@@ -0,0 +1,10 @@
+FROM tianon/mojo
+
+RUN cpanm Term::ReadKey
+
+RUN apt-get update && apt-get install -y vim
+
+COPY . /usr/src/docker-library-docs
+WORKDIR /usr/src/docker-library-docs
+
+CMD ["./push.pl"]
diff --git a/push.pl b/push.pl
index d42c6226b..4dbb3d282 100755
--- a/push.pl
+++ b/push.pl
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 use strict;
 use warnings;
+use 5.010;
 use open ':encoding(utf8)';
 
 use File::Temp;
@@ -163,7 +164,9 @@ while (my $repo = shift) { # '/_/hylang', '/u/tianon/perl', etc
 	$repoTx = $ua->post($repoUrl => { Referer => $repoUrl } => form => $settingsBits);
 	die 'post to ' . $repoUrl . ' failed' unless $repoTx->success;
 	
-	if (my $alert = $repoTx->res->dom('.alert-error')) {
-		die 'update to ' . $repoUrl . ' failed:' . "\n" . $alert->all_text;
+	my $alert = $repoTx->res->dom('.alert-error');
+	if ($alert->size) {
+		my $text = trim $alert->pluck('all_text');
+		die 'update to ' . $repoUrl . ' failed:' . "\n" . $text if $text;
 	}
 }