From 89002da5b45fd9b7630cc2db46567d3a0cee4ebc Mon Sep 17 00:00:00 2001
From: David Yee <tangentialism@gmail.com>
Date: Fri, 29 Jan 2010 17:37:10 -0500
Subject: [PATCH] perl was looking for is_identified on alias

---
 KM.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/KM.pm b/KM.pm
index eccf7d1..69c1665 100644
--- a/KM.pm
+++ b/KM.pm
@@ -41,7 +41,7 @@ sub record {
 
 sub alias {
     my ($self, $name, $alias_to) = @_;
-    return unless $self->_is_identified;
+    return unless $self->_is_initialized;
     $self->_generate_query('a', { '_n' => $alias_to, '_p' => $name }, 0);
 }