OLD | NEW |
| (Empty) |
1 # This program is free software; you can redistribute it and/or modify | |
2 # it under the terms of the GNU General Public License as published by | |
3 # the Free Software Foundation; either version 2 of the License, or | |
4 # (at your option) any later version. | |
5 # | |
6 # This program is distributed in the hope that it will be useful, | |
7 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
8 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
9 # GNU General Public License for more details. | |
10 # | |
11 # You should have received a copy of the GNU General Public License | |
12 # along with this program. If not, see <https://www.gnu.org/licenses/>. | |
13 | |
14 package Dpkg; | |
15 | |
16 use strict; | |
17 use warnings; | |
18 | |
19 our $VERSION = '1.01'; | |
20 | |
21 use Exporter qw(import); | |
22 our @EXPORT_OK = qw($PROGNAME $PROGVERSION $CONFDIR $ADMINDIR $LIBDIR $DATADIR); | |
23 our @EXPORT = qw($version $progname $admindir $dpkglibdir $pkgdatadir); | |
24 | |
25 our ($PROGNAME) = $0 =~ m{(?:.*/)?([^/]*)}; | |
26 | |
27 # The following lines are automatically fixed at install time | |
28 our $PROGVERSION = '1.17.x'; | |
29 our $CONFDIR = '/etc/dpkg'; | |
30 our $ADMINDIR = '/var/lib/dpkg'; | |
31 our $LIBDIR = '.'; | |
32 our $DATADIR = '..'; | |
33 $DATADIR = $ENV{DPKG_DATADIR} if defined $ENV{DPKG_DATADIR}; | |
34 | |
35 # XXX: Backwards compatibility, to be removed on VERSION 2.00. | |
36 ## no critic (Variables::ProhibitPackageVars) | |
37 our $version = $PROGVERSION; | |
38 our $admindir = $ADMINDIR; | |
39 our $dpkglibdir = $LIBDIR; | |
40 our $pkgdatadir = $DATADIR; | |
41 ## use critic | |
42 | |
43 1; | |
OLD | NEW |