1package Magus; 2 3use strict; 4use warnings; 5 6BEGIN { 7 our $Root = '/usr/magus'; 8} 9 10 11use Magus::Config; 12use Magus::Port (); 13use Magus::Lock (); 14use Magus::Category (); 15use Magus::PortCategory (); 16use Magus::Event (); 17use Magus::Machine (); 18use Magus::PortTest (); 19use Magus::Chroot (); 20use Magus::Index (); 21use Magus::Run (); 22use Magus::Log (); 23use Magus::Distfile (); 24use Magus::RestrictedDistfile (); 25use Magus::MasterSite (); 26use Magus::Moved (); 27use Magus::CriticalPorts (); 28 29use Mport::Globals (); 30our $Machine; 31 32BEGIN { 33 $Machine = Magus::Machine->retrieve( 34 name => $Magus::Config{'Machine'} 35 ) || die "Invalid machine: $Magus::Config{Machine}\n"; 36} 37 38 391; 40__END__ 41