Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Print subroutine problem

by CountOrlok (Friar)
on Apr 05, 2013 at 17:56 UTC ( #1027183=note: print w/replies, xml ) Need Help??


in reply to Print subroutine problem

The simple solution is to change the anonymous subs to look like this:
sub { print "Active_Conn: ".query_database($querys{activeconn})." " }
And add a print "\n" at the end before exiting. I suggest refactoring it once you get it working.