FAPI2: Fix argument count in createIfAttrService.pl

Change-Id: Ia476d99ff3f7c2b33805cd6a27d7987d9e3472ce
Reviewed-on: http://gfw160.aus.stglabs.ibm.com:8080/gerrit/19548
Tested-by: Jenkins Server
Reviewed-by: Brian Silver <bsilver@us.ibm.com>
Reviewed-by: Richard J. Knight <rjknight@us.ibm.com>
Reviewed-by: Jennifer A. Stofer <stofer@us.ibm.com>

1 files changed, 26 insertions, 1 deletions

diff --git a/src/import/hwpf/fapi2/tools/createIfAttrService.pl b/src/import/hwpf/fapi2/tools/createIfAttrService.pl
index 9a552bea9..4dce5b3f8 100755
--- a/src/import/hwpf/fapi2/tools/createIfAttrService.pl
+++ b/src/import/hwpf/fapi2/tools/createIfAttrService.pl
@@ -1,4 +1,22 @@
 #!/usr/bin/perl
+# IBM_PROLOG_BEGIN_TAG
+# This is an automatically generated prolog.
+#
+# $Source: hwpf/fapi2/tools/createIfAttrService.pl $
+#
+# IBM CONFIDENTIAL
+#
+# EKB Project
+#
+# COPYRIGHT 2015
+# [+] International Business Machines Corp.
+#
+#
+# The source code for this program is not published or otherwise
+# divested of its trade secrets, irrespective of what has been
+# deposited with the U.S. Copyright Office.
+#
+# IBM_PROLOG_END_TAG
 
 use strict;
 use Getopt::Long qw(:config pass_through);
@@ -13,7 +31,7 @@ my $arg_output_dir = undef;
 GetOptions("output-dir=s" => \$arg_output_dir);
 
 my $numArgs = $#ARGV + 1;
-if (($numArgs < 3) || ($arg_output_dir eq undef))
+if (($numArgs < 2) || ($arg_output_dir eq undef))
 {
     print ("Usage: createIfAttrService.pl --output-dir=<output dir>\n");
     print ("           [<if-attr-file1> <if-attr-file2> ...]\n");
@@ -34,6 +52,13 @@ if (($numArgs < 3) || ($arg_output_dir eq undef))
 use XML::Simple;
 my $xml = new XML::Simple (KeyAttr=>[]);
 
+#------------------------------------------------------------------------------
+# Set PREFERRED_PARSER to XML::Parser. Otherwise it uses XML::SAX which contains
+# bugs that result in XML parse errors that can be fixed by adjusting white-
+# space (i.e. parse errors that do not make sense).
+#------------------------------------------------------------------------------
+$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
+
 # Uncomment to enable debug output
 #use Data::Dumper;