# Make sure we have exactly one record source,
# or print error and stop Forge.
if (scalar(@{ $this->record_sources }) != 1) {
   EDF::print_error ("Perl Manipulator ", $this->name .
   " must have exactly one record source.");
   die("Perl Manipulator ", $this->name, 
   " must have exactly one record source.");
}