Mercurial > pidgin
diff plugins/perl/scripts/conversation.pl @ 12364:6fd82071a7b8
[gaim-migrate @ 14668]
sf patch #1373688, from Will Thompson
"Make the Perl bindings more Perl-ish"
committer: Tailor Script <tailor@pidgin.im>
| author | Mark Doliner <mark@kingant.net> |
|---|---|
| date | Mon, 05 Dec 2005 23:54:34 +0000 |
| parents | 11d14efe7be2 |
| children |
line wrap: on
line diff
--- a/plugins/perl/scripts/conversation.pl Mon Dec 05 23:41:29 2005 +0000 +++ b/plugins/perl/scripts/conversation.pl Mon Dec 05 23:54:34 2005 +0000 @@ -50,11 +50,11 @@ ######### TEST CODE HERE ########## # First we create two new conversations. print "Testing Gaim::Conversation::new()..."; - $conv1 = Gaim::Conversation::new(1, $account, "Test Conversation 1"); + $conv1 = Gaim::Conversation->new(1, $account, "Test Conversation 1"); if ($conv1) { print "ok.\n"; } else { print "fail.\n"; } print "Testing Gaim::Conversation::new()..."; - $conv2 = Gaim::Conversation::new(1, $account, "Test Conversation 2"); + $conv2 = Gaim::Conversation->new(1, $account, "Test Conversation 2"); if ($conv2) { print "ok.\n"; } else { print "fail.\n"; } # Second we create a window to display the conversations in.