Fix undefined sub when trying to remove aliases

diff --git a/scripts/perlalias.pl b/scripts/perlalias.pl
index da085b121e7cc60f59d1a15a56e22cc6d4cafe76..0859c965b977a00e779f5a8fa9a16ffe56f47aa7 100644 (file)
--- a/scripts/perlalias.pl
+++ b/scripts/perlalias.pl
@@ -418,7 +418,7 @@ sub cmd_perlalias {
                $command = substr($command, 1);
                if (exists $alias_packages{$command}) {
                        destroy_alias_package $command;
-                       Irssi::printfromat(MSGLEVEL_CLIENTNOTICE, perlalias_removed => $command);
+                       Irssi::printformat(MSGLEVEL_CLIENTNOTICE, perlalias_removed => $command);
                }
                else {
                        Irssi::printformat(MSGLEVEL_CLIENTERROR, perlalias_not_found => $command);