Stopped failing for me once I commented out the two ->update calls. They were not needed anyways. 

#!/usr/bin/perl

# https://perlmonks.org/?node_id=1226054

use strict;
use warnings;
use Tk;
$SIG{__WARN__} = sub { die @_ };

my %mults = (
    A => "a",
    B => "b",
    '' => '',
);
my %Inputs;
my %Telltale;

sub inline_validate_section {
    $Inputs{Section} or return 1;
    $Telltale{Section} or return 1;
    my $entry = uc(shift);
    print "$entry\n";
    if(defined($mults{$entry}) || !$entry){
        $Inputs{Section}->configure(-background => 'lightgrey');
        $Telltale{Section}->configure(-text => "$mults{$entry}");
        #$Telltale{Section}->update();
    } else {
        $Inputs{Section}->configure(-background => 'red');
        $Telltale{Section}->configure(-text => "nope");
        #$Telltale{Section}->update();
    }
    return 1;
}

 my $main = MainWindow->new();
 $main->geometry('400x100');

 # two frames and adjuster
 my $main_frame = $main->Frame; # right

  # pack frames
 $main_frame->pack(qw/-side right -fill both -expand l/);

     my $vn = "Section";

  $main_frame->Label(-text => $vn, -width => 15)->pack(qw/-side left/)
+;
    $Inputs{$vn} = $main_frame->Entry(-validate        => 'key',
                    -validatecommand => [\&inline_validate_section],
                    -textvariable => \$vn)->pack(qw/-side left -padx 1
+0 -pady 5 -fill x/);

  $Telltale{$vn} = $main_frame->Label(-text => "nope", -width => 25)->
+pack(qw/-side left/);

 MainLoop();

[download]

Notice other changes to run under strict and warnings :(

In reply to Re: tk Entry validatecommand stops responding by tybalt89
in thread tk Entry validatecommand stops responding by cscvrp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.