From 26e44471eb8d53b7a468d5cf3eeb72a875246d8b Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Mon, 15 Aug 2016 21:07:44 +0200
Subject: Dpkg::Substavars: Make the parse method return the number of
 substvars parsed

---
 scripts/Dpkg/Substvars.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'scripts/Dpkg')

diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm
index 65e14e125..4104d18e8 100644
--- a/scripts/Dpkg/Substvars.pm
+++ b/scripts/Dpkg/Substvars.pm
@@ -195,10 +195,13 @@ Add new substitutions read from $file.
 Add new substitutions read from the filehandle. $desc is used to identify
 the filehandle in error messages.
 
+Returns the number of substitutions that have been parsed with success.
+
 =cut
 
 sub parse {
     my ($self, $fh, $varlistfile) = @_;
+    my $count = 0;
     local $_;
 
     binmode($fh);
@@ -210,7 +213,10 @@ sub parse {
 		  $varlistfile, $.);
 	}
 	$self->set($1, $2);
+        $count++;
     }
+
+    return $count
 }
 
 =item $s->set_version_substvars($sourceversion, $binaryversion)
@@ -399,6 +405,8 @@ sub output {
 
 Obsolete substvar: Emit an error on Source-Version substvar usage.
 
+New return: $s->parse() now returns the number of parsed substvars.
+
 =head2 Version 1.04 (dpkg 1.18.0)
 
 New method: $s->filter().
-- 
cgit v1.2.3