From 70d2f4a0ec4f8cdfe63536b266c70a3d7ef37a6e Mon Sep 17 00:00:00 2001 From: Max Kanat-Alexander Date: Fri, 3 Sep 2010 18:19:35 -0700 Subject: Bug 559549: Make checksetup.pl print out a "checksetup.pl complete" message when it finishes. r=mkanat, a=mkanat (module owner) --- Bugzilla/Install/Util.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Bugzilla/Install') diff --git a/Bugzilla/Install/Util.pm b/Bugzilla/Install/Util.pm index 41f608abf..d65d2f592 100644 --- a/Bugzilla/Install/Util.pm +++ b/Bugzilla/Install/Util.pm @@ -47,6 +47,7 @@ our @EXPORT_OK = qw( indicate_progress install_string include_languages + success template_include_path vers_cmp init_console @@ -627,6 +628,11 @@ sub _console_die { die colored("$message", COLOR_ERROR) . "\n"; } +sub success { + my ($message) = @_; + print colored($message, COLOR_SUCCESS), "\n"; +} + sub prevent_windows_dialog_boxes { # This code comes from http://bugs.activestate.com/show_bug.cgi?id=82183 # and prevents Perl modules from popping up dialog boxes, particularly -- cgit v1.2.3-24-g4f1b