| 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 |