Mercurial > pub > Impl

comparison Lib/IMPL/lang.pm @ 169:fd92830036c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected IMPL::SQL::Schema::Diff
author sourcer
date Tue, 17 May 2011 00:04:28 +0400
parents 6148f89bb7bf
children aaab45153411
comparison
equal deleted inserted replaced
168:6148f89bb7bf 169:fd92830036c3
139 } 139 }
140 140
141 sub hashDiff { 141 sub hashDiff {
142 my ($src,$dst) = @_; 142 my ($src,$dst) = @_;
143 143
144 $dst = { %$dst }; 144 $dst = $dst ? { %$dst } : {} ;
145 $src ||= {};
145 146
146 my %result; 147 my %result;
147 148
148 foreach my $key ( keys %$src ) { 149 foreach my $key ( keys %$src ) {
149 if (exists $dst->{$key}) { 150 if (exists $dst->{$key}) {