1# Copyright © 2007-2009,2012-2013 Guillem Jover <guillem@debian.org> 2# Copyright © 2007 Raphaël Hertzog <hertzog@debian.org> 3# 4# This program is free software; you can redistribute it and/or modify 5# it under the terms of the GNU General Public License as published by 6# the Free Software Foundation; either version 2 of the License, or 7# (at your option) any later version. 8# 9# This program is distributed in the hope that it will be useful, 10# but WITHOUT ANY WARRANTY; without even the implied warranty of 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12# GNU General Public License for more details. 13# 14# You should have received a copy of the GNU General Public License 15# along with this program. If not, see <https://www.gnu.org/licenses/>. 16 17package Dpkg::Vars; 18 19use strict; 20use warnings; 21 22our $VERSION = '0.03'; 23our @EXPORT = qw( 24 get_source_package 25 set_source_package 26); 27 28use Exporter qw(import); 29 30use Dpkg::ErrorHandling; 31use Dpkg::Gettext; 32use Dpkg::Package; 33 34my $sourcepackage; 35 36sub get_source_package { 37 return $sourcepackage; 38} 39 40sub set_source_package { 41 my $v = shift; 42 my $err = pkg_name_is_illegal($v); 43 error(g_("source package name '%s' is illegal: %s"), $v, $err) if $err; 44 45 if (not defined($sourcepackage)) { 46 $sourcepackage = $v; 47 } elsif ($v ne $sourcepackage) { 48 error(g_('source package has two conflicting values - %s and %s'), 49 $sourcepackage, $v); 50 } 51} 52 531; 54