(run_display_release_notes) introduce it in order to fork the release

notes helper

1 files changed, 6 insertions, 0 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e73697932..6883c5cb0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -986,6 +986,12 @@ sub get_release_notes {
     $release_notes;
 }
 
+sub run_display_release_notes {
+    my ($release_notes) = @_;
+    output('/tmp/release_notes.html', $release_notes);
+    run_program::raw({ detach => 1 }, '/usr/bin/display_release_notes.pl');
+}
+
 sub acceptLicense {
     my ($in, $google) = @_;
     require messages;