you're right.

But to clear said flag, you could use something like following: (I checked, it worked):

my $allowed=1;
$text->bind('<<Modified>>' =>
            sub {
        getText($text, @_); 
                do {$allowed=0;$text->editModified(0);$allowed=1} if $
+allowed;
        } );
[download]

unfortunately this is not simple, so not very Perlish.

addition: surprisingly, afterIdle(...) do not resolve that, and its usage restores initial problem...