Commits

Anonymous committed 39cb874

#i10000# build fix

  • Participants
  • Parent commits 9ffb2b6

Comments (0)

Files changed (1)

File solenv/bin/clipatchconfig.pl

 #*************************************************************************
 #
 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-# 
+#
 # Copyright 2008 by Sun Microsystems, Inc.
 #
 # OpenOffice.org - a multi-platform office productivity suite
 sub trim;
 sub readRedirectionValues($);
 
-my $usage = 
+my $usage =
    "Usage is: \n clipatchconfig.pl configTemplate redirections policyConfig
-   
+
    configTemplate: The config file which is used for the policy assembly. It
    contains place holders for the binding redirection.
 
    policyConfig: Name of the file in which we want to write the config file.
 ";
 
-			  
+
 if (scalar @ARGV < 3) {
    print $usage;
    exit -1;
         if (length($trimmed = trim($_)) == 0) {
             next;
         }
-        
+
 	#Skip comment symbol: #
 	if ($trimmed =~ /^#/) {
 	    next;
 	}
 
         my @lineParts = split /=/,$_;
-        
+
         #Check if we have valid name value pairs.
         if (scalar @lineParts != 2) {
             print "Error: Values in $ARGV[1] are not correct (Entries must have the form name=value). Invalid line: \n$_\n";
             exit -1;
         }
-        
+
         #Trim the strings and check if they still contain characters
         my $name = trim($lineParts[0]);
         my $value = trim($lineParts[1]);
             print "Error: Values in $ARGV[1] are not correct. Invalid line: \n$_\n";
             exit -1;
         }
-        
+
         #Check if we have duplicate key names
         for (keys %redirectionValues) {
             if ( $name eq $_) {
                 exit -1;
             }
         }
-        
+
         $redirectionValues{$name} = $value;
     }
     return %redirectionValues;
 	$string =~ s/^\s+//;
 	$string =~ s/\s+$//;
 	return $string;
-}
+}