From 5fc21e87b9bcc55a542c4e675f4b78cc578026d1 Mon Sep 17 00:00:00 2001 From: Andras Timar Date: Mon, 21 Nov 2011 09:58:55 +0100 Subject: in perl there are no barewords for true/false --- solenv/bin/modules/installer/windows/property.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'solenv') diff --git a/solenv/bin/modules/installer/windows/property.pm b/solenv/bin/modules/installer/windows/property.pm index ee33596760cb..1e6e921132f3 100644 --- a/solenv/bin/modules/installer/windows/property.pm +++ b/solenv/bin/modules/installer/windows/property.pm @@ -480,7 +480,7 @@ sub update_property_table my $propertyfile = installer::files::read_file($properyfilename); - my $hasarpnomodify = false; + my $hasarpnomodify = 0; # Getting the new values # Some values (arpcomments, arpcontacts, ...) are inserted from the Property.mlf @@ -506,7 +506,7 @@ sub update_property_table ${$propertyfile}[$i] =~ s/\bPRODUCTNAMETEMPLATE\b/$productname/; ${$propertyfile}[$i] =~ s/\bPRODUCTVERSIONTEMPLATE\b/$productversion/; ${$propertyfile}[$i] =~ s/\bQUICKSTARTERLINKNAMETEMPLATE\b/$quickstarterlinkname/; - if ( ${$propertyfile}[$i] =~ m/\bARPNOMODIFY\b/ ) { $hasarpnomodify = true; } + if ( ${$propertyfile}[$i] =~ m/\bARPNOMODIFY\b/ ) { $hasarpnomodify = 1; } } # Check if are building silent MSI -- cgit