After taking a quick look at the docs for Net::Oscar, it would appear as you need to wrap a while loop around the Net::Oscar::do_one_loop() function. Your code just runs through without waiting.
Hmm, I have one of those (its actually the next thing in the code after the block posted). But, I wanted these to be executed before said loop, but I think I could move these into the buddy of the signon_done() subroutine. But, then I'd still have the problem of making multiple calls to commit_buddylist without waiting for the proper return. I could have a do-until loop with the buddylist_ok and buddylist_error taking a global variable as a parameter (which would then be the conditional of the while loop). Hmm. I don't know if that made any sense, but I've gotta jet real quick and wanted to get these thoughts down somewhere :P.
Thanks for your help, anybody else with ideas feel free to post em.