[linux-base] 03/04: Add image_stem() function to Perl module

[debian-kernel at lists.debian.org]

This is an automated email from the git hooks/post-receive script.

benh pushed a commit to branch benh/maint-script-helpers
in repository linux-base.

commit 4a528b7f4f56b46349633f4f798aea98f2447920
Author: Ben Hutchings <ben at decadent.org.uk>
Date:   Mon May 30 18:41:19 2016 +0100

    Add image_stem() function to Perl module
---
 debian/changelog   | 2 +-
 lib/DebianLinux.pm | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 88cb523..2319f3c 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -3,7 +3,7 @@ linux-base (4.1) UNRELEASED; urgency=medium
   * Adjust for migration to git:
     - Add .gitignore files
     - debian/control: Update Vcs-* fields (Closes: #824748)
-  * Add read_kernelimg_conf() function to Perl module
+  * Add image_stem() and read_kernelimg_conf() functions to Perl module
 
  -- Ben Hutchings <ben at decadent.org.uk>  Tue, 11 Aug 2015 19:12:59 +0200
 
diff --git a/lib/DebianLinux.pm b/lib/DebianLinux.pm
index 3eaeb44..cf162dd 100644
--- a/lib/DebianLinux.pm
+++ b/lib/DebianLinux.pm
@@ -24,7 +24,7 @@ use FileHandle;
 BEGIN {
     use Exporter ();
     our @ISA = qw(Exporter);
-    our @EXPORT_OK = qw(version_cmp image_list read_kernelimg_conf);
+    our @EXPORT_OK = qw(version_cmp image_stem image_list read_kernelimg_conf);
 }
 
 sub version_split {
@@ -81,6 +81,10 @@ if ((uname())[4] =~ /^(?:mips|parisc|powerpc|ppc)/) {
     $image_stem = 'vmlinuz';
 }
 
+sub image_stem {
+    return $image_stem;
+}
+
 sub image_list {
     my @results;
     my $prefix = "/boot/$image_stem-";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/kernel/linux-base.git