- Timestamp:
- 2014-12-08T12:19:58+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/perllib/Greenstone/Package.pm
r29536 r29546 8 8 use Greenstone::Helpers; 9 9 use base 'Exporter'; 10 require Greenstone::Config::Loader;11 10 12 11 use parent 'Greenstone::Config'; … … 53 52 54 53 # Classify ourselves as config and load the config 55 my $self = bless({}, 'Greenstone::Config ::Loader');54 my $self = bless({}, 'Greenstone::Config'); 56 55 57 56 $self->readconf ("global.conf"); 58 57 $self->readconf ($distro_conf); 59 $self->readconf ($package_conf); 60 58 61 59 die "Distro '$args{distro}' is invalid (does not specify a manager)" 62 60 unless (exists $self->{config}->{MANAGER}); 63 61 64 62 my $class = __PACKAGE__ . '::_' . lc $self->{config}->{MANAGER}; 65 eval "require $class; 1" or die "Package manager '$self->{config}->{MANAGER}' does not exist ";63 eval "require $class; 1" or die "Package manager '$self->{config}->{MANAGER}' does not exist or did not compile"; 66 64 67 65 # Reclassify as our implementation 68 66 bless $self, $class; 67 68 $self->readconf ($package_conf); 69 69 70 70 $self->{package} = $args{package}; … … 75 75 $self->add_sources; 76 76 $self->add_makefile; 77 $self->add_install; 77 78 $self->add_package; 78 79 }
Note:
See TracChangeset
for help on using the changeset viewer.