From 4d413d06a37c0cefd1d99d38b10bcdf7b506d538 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 13 Apr 2019 17:17:44 +0200
Subject: "database" sub-command: Provide an exit status

---
 lib/Travelynx/Command/database.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/Travelynx')

diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index a42d378..5e1b38a 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -110,6 +110,7 @@ my @migrations = (
 
 sub run {
 	my ( $self, $command ) = @_;
+	my $exit_status = 0;
 
 	my $dbh = $self->app->dbh;
 
@@ -120,6 +121,7 @@ sub run {
 		}
 		else {
 			$dbh->rollback;
+			$exit_status = 1;
 		}
 	}
 	elsif ( $command eq 'migrate' ) {
@@ -134,6 +136,7 @@ sub run {
 			if ( not $migrations[$i]($dbh) ) {
 				say "Aborting migration; rollback to v${schema_version}";
 				$dbh->rollback;
+				$exit_status = 1;
 				last;
 			}
 		}
@@ -147,6 +150,7 @@ sub run {
 		}
 		else {
 			say "no";
+			$exit_status = 1;
 		}
 	}
 	else {
@@ -155,6 +159,7 @@ sub run {
 
 	$dbh->disconnect;
 
+	exit($exit_status);
 }
 
 1;
-- 
cgit v1.2.3