﻿if (!$gbl) {
	$gbl->{fname} = "";
}

if ($i ne $gbl->{fname}) {
	my ($file, $gmm);

	if ($gbl->{iter} && !$gbl->{iter}->over()) {
		die "$gbl->{fname}, メッセージ数が一致しない。";
	}
	$file = $i;
	$file =~ s/^.*[\\\/]([^\\\/]+)$/$1/;
	$gmm = new gmm("dst/$file");
	$gbl->{iter} = $gmm->newIter("LANG_ENGLISH");
	$gbl->{fname} = $i;
}

if ($data{msg_id} ne $gbl->{iter}->getMsgId()) {
	die "$gbl->{fname}, $data{msg_id}, メッセージIDが一致しない。";
}
if ($data{need_wait} ne $gbl->{iter}->getNeedWait()) {
	print "$i, $data{msg_id}, need_wait\n";
}
if ($data{use_tag_list} ne $gbl->{iter}->getUseTagList()) {
	print "$i, $data{msg_id}, use_tag_list\n";
}
if ($data{org_file} ne $gbl->{iter}->getOrgFile()) {
	print "$i, $data{msg_id}, org_file\n";
}
$iter->setNeedWait($gbl->{iter}->getNeedWait());
$iter->setUseTagList($gbl->{iter}->getUseTagList());
$iter->setOrgFile($gbl->{iter}->getOrgFile());
$gbl->{iter}->next();
