From 822555d7e43653eb5a9b2c122a30e33af41c844b Mon Sep 17 00:00:00 2001 From: xocel Date: Tue, 1 Jan 2013 18:09:56 +1300 Subject: fixes #26 --- SBO-Lib/lib/SBO/Lib.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 811243b..fe21cd7 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -31,6 +31,7 @@ our @EXPORT = qw( get_inst_names get_available_updates get_requires + get_readme_contents do_slackbuild make_clean make_distclean @@ -785,3 +786,11 @@ sub merge_queues { } return $queue_a; } + +sub get_readme_contents($) { + exists $_[0] or script_error 'get_readme_contents requires an argument.'; + my $fh = open_read(shift .'/README'); + my $readme = do {local $/; <$fh>}; + close $fh; + return $readme; +} \ No newline at end of file -- cgit v1.2.3