r8301 struggleyb - /branches/struggleyb/domts-transform-perl/DOMTSHandler.pm

[netsurf at semichrome.net]

Author: struggleyb
Date: Sat Jul  4 05:32:45 2009
New Revision: 8301

URL: http://source.netsurf-browser.org?rev=8301&view=rev
Log:
Initialise the pointers to NULL.

Modified:
    branches/struggleyb/domts-transform-perl/DOMTSHandler.pm

Modified: branches/struggleyb/domts-transform-perl/DOMTSHandler.pm
URL: http://source.netsurf-browser.org/branches/struggleyb/domts-transform-perl/DOMTSHandler.pm?rev=8301&r1=8300&r2=8301&view=diff
==============================================================================
--- branches/struggleyb/domts-transform-perl/DOMTSHandler.pm (original)
+++ branches/struggleyb/domts-transform-perl/DOMTSHandler.pm Sat Jul  4 05:32:45 2009
@@ -378,7 +378,11 @@
 	if (exists $ats->{"value"}) {
 		print " = $ats->{'value'};\n";
 	} else {
-		print ";\n";
+		if ($type =~ m/\*/) {
+			print " = NULL;";
+		} else {
+			print ";\n";
+		}
 	}
 
 	my $var = $self->{"var"};