File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -129,7 +129,7 @@ sub AUTOLOAD {
129129 no strict ' refs' ;
130130 my $rc = $Test -> $comparator ( $self -> $getter , $str , $name );
131131 if (!$rc && $self -> error_callback) {
132- &{$self -> error_callback}($name );
132+ &{$self -> error_callback}( $name , $self );
133133 }
134134 return $rc ;
135135 };
@@ -144,7 +144,7 @@ sub AUTOLOAD {
144144 no strict ' refs' ;
145145 my $rc = $Test -> $comparator ( $self -> $getter ($locator ), $str , $name );
146146 if (!$rc && $self -> error_callback) {
147- &{$self -> error_callback}($name );
147+ &{$self -> error_callback}( $name , $self );
148148 }
149149 return $rc ;
150150 };
@@ -171,7 +171,7 @@ sub AUTOLOAD {
171171 diag($@ ) if $@ ;
172172 $rc = ok( $rc , $name );
173173 if (!$rc && $self -> error_callback) {
174- &{$self -> error_callback}($name );
174+ &{$self -> error_callback}( $name , $self );
175175 }
176176 return $rc ;
177177 };
You can’t perform that action at this time.
0 commit comments