Fix parsing aliases for the new destination format

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@48 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/commands.yaml b/commands.yaml
index 32ea7eb..b367e89 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -394,7 +394,7 @@ PARSE: |-
       $response = $responses[ int( rand( scalar( @responses ) ) ) ].$author;
     } elsif( $response =~ /<alias>(.+)/ ) {
       $response =~ s/<alias>//;
-      $kernel->post( "core", "cmd", $who, "~+".$response, $src, $dest, $replypath );
+      $kernel->post( "core", "cmd", $who, "~+".$response, $src, $dest->{ 'dest' }, $replypath );
       return;
     } else {
       my @responses = split( /\|/, $response );