perl was looking for is_identified on alias

simonw · Jan 29, 2010 · 89002da · 89002da
1 parent 9ff8811
commit 89002da
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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);
 }