Szerkesztő:UTF46/src/editor/lint059.pm

editor/lint059.pm forráskódja

package editor::lint059;
use utf8;
use strict;
use warnings;

sub new {bless {},shift};

sub automata {
	my $self=shift;
	return 1;
};

sub edit {
	my $self=shift;
	my $title=shift;
	my $text=shift;

	$text =~ s/(\<\s*br\s*\/?\s*\>\s*)+(\||\}\})/$2/sg;

	return {
		summary=>"sablonparam végéről <br/> törlése",
		text=>$text,
		minor=>1,
		nocreate=>1,
	};
};

1;

en:WTFPL