Lines Matching refs:orig
99 my ($orig, $suspect) = @_;
102 if (exists $orig->{$key}) {
103 if ($orig->{$key} ne $value) {
104 print "# key '$key' was '$orig->{$key}' now '$value'\n";
108 print "# key '$key' is '$orig->{$key}', unexpect.\n";
112 foreach (keys %$orig) {
114 print "# key '$_' was '$orig->{$_}' now missing\n";
120 my (%orig) = my (%inc) = my (%dec) = my (%postinc) = my (%postdec)
132 check_same (\%orig, \%inc);
141 check_same (\%orig, \%dec);
150 check_same (\%orig, \%postinc);
159 check_same (\%orig, \%postdec);