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 |