#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $package=$_{package};

	# Find the matching package.
	foreach my $field ($this->mcpsession_packages) {
		my $obj=$this->$field;
		next unless ref $obj && $obj->package eq $package;
		
		my $minfield=$field."_min_version";
		my $maxfield=$field."_max_version";
		my $enabledfield=$field."_enabled";

		if ($_{'max-version'} >= $this->$minfield && $this->$maxfield >= $_{'min-version'}) {
			$this->$enabledfield($ret=$_{'max-version'} > $this->$maxfield ? $this->$maxfield : $_{'max-version'});
		}
		else {
			$this->$enabledfield(0);
		}
		return 1;
	}

	return 1;
}
