in reply to Re: Can't time out a $sth-fetchrow()
in thread Can't time out a $sth-fetchrow()

Why do you think, my die string will not be $timeoutstr? I'm just curious because now, where I use what you also suggested, Sys::SigAction, it works. The "eq" also works.


s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Replies are listed 'Best First'.
Re^3: Can't time out a $sth-fetchrow()
by mje (Curate) on May 27, 2011 at 09:44 UTC

    Because it contains something like "timeout at x.pl line 16." because Perl added the line number.

      Understood. Thanks! That's why my $timeoutstr contains a trailing "\n". So no "at line..." is added


      s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
      +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e