diff options
author | Yorhel <git@yorhel.nl> | 2011-03-30 21:08:09 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-03-30 21:08:27 +0200 |
commit | ac0b082e65d00d53eb08cb0918ea96443d88334f (patch) | |
tree | 4c6a530603d008a4370c950af8bd01f12ade3283 /lib/VNDB/Handler/Chars.pm | |
parent | 6f2e09fe95c4fd41e44bea95ae4f2eaabe9e533f (diff) |
Got rid of Perl start-up warning in Handler::Chars
Diffstat (limited to 'lib/VNDB/Handler/Chars.pm')
-rw-r--r-- | lib/VNDB/Handler/Chars.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Chars.pm b/lib/VNDB/Handler/Chars.pm index dddcbb3f..4c0371d0 100644 --- a/lib/VNDB/Handler/Chars.pm +++ b/lib/VNDB/Handler/Chars.pm @@ -241,7 +241,7 @@ sub charTable { sub edit { my($self, $id, $rev, $copy) = @_; - my $copy = $rev && $rev eq 'copy' || $copy && $copy eq 'copy'; + $copy = $rev && $rev eq 'copy' || $copy && $copy eq 'copy'; $rev = undef if defined $rev && $rev !~ /^\d+$/; my $r = $id && $self->dbCharGet(id => $id, what => 'changes extended vns traits', $rev ? (rev => $rev) : ())->[0]; |