diff options
| author | xocel <xocel@iquidus.org> | 2013-01-01 18:09:56 +1300 |
|---|---|---|
| committer | xocel <xocel@iquidus.org> | 2013-01-03 12:11:46 +1300 |
| commit | 822555d7e43653eb5a9b2c122a30e33af41c844b (patch) | |
| tree | 1304a63461eb72cf17c75e7d970b5cefa8dc28fc /SBO-Lib/lib/SBO/Lib.pm | |
| parent | ca238587fe160ca079c40289d5b514b55d28cf9a (diff) | |
| download | sbotools2-822555d7e43653eb5a9b2c122a30e33af41c844b.tar.xz | |
fixes #26
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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 |