This is a very odd problem that has taken me the last 4 hours to isolate, debug and sort of cure. Here is the cure: 

    sleep 1;                     # <--- WORKS!
    #use Time::HiRes 'usleep';   # <--- DOES NOT!!!!!
    #usleep( 2000 );             # <--- ???? 
    my $html = ui_template( 'Regex Editor', '', $html );
    # $html =~ s/\W/_/g;         # no effect
    print $html;
    # close STDIN; close STDOUT; # no effect
    exit 0;                      # no effect

[download]
Now to the details of the problem......

The addition of the sleep 1 allows the script to function. Without it it chokes in an error log free way. First some background:

In the course of debugging this behaviour the following observations were made:

I have no idea why this is happening, and like most programmers worry about errors for which I can't find a reason, even if I can kludge it over.

Suggestions appreciated.

cheers

tachyon

The script logic preceeding the noted code follows. None of the subs fork, so they should do their stuff, finish and return 

#!/usr/bin/perl -w

my $REGEX_CGI = 'http://devel3.ourdomain.org/cgi-bin/regex.pl';

use strict;
$|++;

use lib "/devel/www/cgi-bin";
use OurModules::CGI;
use OurModules::Config;
use OurModules::DBIFunctions qw(
    do_dbi_connect
    regex_get_data
    regex_delete
    regex_update
    regex_new
    validate_regex
);
use OurModules::UI qw ( ui_template ui_user_error ui_permission_denied
+ pretty_table );
use OurModules::Session qw ( login_session );
use OurModules::Perms qw( allow_s_re_editor );

my $q = OurModules::CGI->new();
print $q->header;

my $dbh = do_dbi_connect( $DB_TYPE, $DB_NAME, $FILTER_USERNAME, $FILTE
+R_PASSWORD );
END{ $dbh->disconnect if $dbh };

# session code removed, substitued with null values
my $session = '';
my $user_id = 1;

if ( $q->param('action') and $q->param('action') eq 'update' ) {
    my $html = '';
    my $need_hup = 0;
    for my $param ( sort $q->param() ) {
        if ( $param =~ m/update_(\d+)$/ ) {
          next if $q->param($param) eq 'OK';
            my $regex_id = $1;
            $need_hup = 1;
            if ( $q->param($param) eq 'DELETE' ) {
                $html .= regex_delete( $dbh, $regex_id );
            }
            else {
                $html .= regex_update( $dbh, $regex_id, $q->param("reg
+ex_string_$regex_id"), $q->param("location_$regex_id"), $q->param("co
+mments_$regex_id"), $user_id );
            }
        }
        elsif ( $param =~ m/new/ ) {
          next unless $q->param($param) eq 'NEW';
            $need_hup = 1;
            $html .= regex_new( $dbh, $q->param("regex_string_new"), $
+q->param("location_new"), $q->param("comments_new"), $user_id );
        }
    }
    #do{ system( 'sudo', $SEND_HUP ) and ui_system_error( "Could not H
+UP redirector! $SEND_HUP $?" ) } if $need_hup;
    $html ||= 'No Updates Found';
    $html =<<HTML;
<form method="POST" action="$REGEX_CGI">
<input type="hidden" name="session" value="$session">
<pre>
Doing Updates:
$html
Done!
</pre>
<input type="submit" name="back" value="Back to Regex Editor">
</form>
HTML
    sleep 1;                     # <--- WORKS!
    #use Time::HiRes 'usleep';   # <--- DOES NOT!!!!!
    #usleep( 2000 );              
    my $html = ui_template( 'Regex Editor', '', $html );
    # $html =~ s/\W/_/g;         # no effect
    print $html;
    # close STDIN; close STDOUT; # no effect
    exit 0;                      # no effect
}
else {
    show_form( $dbh, $q, $session );
}
exit 0;


#---------------------------------------------------------------------
+----------
# subroutines
#---------------------------------------------------------------------
+----------

[download]

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In reply to Odd bug - Sleep 1 cures CGI proxy issue - But Why??? by tachyon

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.