[PerlChina] hashref return stuff

[fayland]

#!/usr/bin/perl

my $error = &validate();

if ($error) {
    print 'error';
} else {
    print 'ok';
}

sub validate {
    my $error = { };
    return $error;
}

会输出 error. 怎么写比较好？

-- 
Fayland Lam // http://www.fayland.org/