From d298f3f0668dd675c514684994e83574dd29611c Mon Sep 17 00:00:00 2001
From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Mon, 23 Jun 2008 15:00:07 +0000
Subject: [PATCH] Fix parsing aliases for the new destination format

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@48 088b83a4-0077-4247-935c-42ec02c2848b
---
 commands.yaml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/commands.yaml b/commands.yaml
index 32ea7eb..b367e89 100644
--- 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 );
-- 
2.11.0