modules/damieng/clean_xml/post_xml.pm - diff

Return to post_xml.pm CVS log

Up to [LON-CAPA] / modules / damieng / clean_xml

version 1.1, 2015/04/17 15:35:01	version 1.2, 2015/04/27 18:04:40
Line 350 sub replace_m {	Line 350 sub replace_m {
push(@variables, $1);	push(@variables, $1);
}	}
}	}
	# this regexp is for " @a = ..."
	while ($text =~ /^[ \t]\@([a-zA-Z_0-9]+)[ \t]=/gm) {
	if (!string_in_array(\@variables, $1)) {
	push(@variables, $1);
	}
	}
# this regexp is for " ($a, $b, $c) = ..."	# this regexp is for " ($a, $b, $c) = ..."
my @matches = ($text =~ /^[ \t]$[ \t]\$([a-zA-Z_0-9]+)(?:[ \t],[ \t]\$([a-zA-Z_0-9]+))[ \t]$[ \t]*=/gm);	my @matches = ($text =~ /^[ \t]$[ \t]\$([a-zA-Z_0-9]+)(?:[ \t],[ \t]\$([a-zA-Z_0-9]+))[ \t]$[ \t]*=/gm);
foreach my $match (@matches) {	foreach my $match (@matches) {