diff options
-rw-r--r-- | test/DOMTSHandler.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/DOMTSHandler.pm b/test/DOMTSHandler.pm index 5022db9..3cf0b7a 100644 --- a/test/DOMTSHandler.pm +++ b/test/DOMTSHandler.pm @@ -1605,7 +1605,7 @@ sub addto_cleanup { if (exists $unref_prefix{$type}) { $prefix = $unref_prefix{$type}; } - push(@{$self->{unref}}, $prefix."_unref(".$var.");\n"); + push(@{$self->{unref}}, "if (".$var." != NULL) { ".$prefix."_unref(".$var."); ".$var." = NULL; }\n"); } } |