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