Index: trunk/ippToPsps/scripts/pspsSchema2xml.pl
===================================================================
--- trunk/ippToPsps/scripts/pspsSchema2xml.pl	(revision 27474)
+++ trunk/ippToPsps/scripts/pspsSchema2xml.pl	(revision 27475)
@@ -1,4 +1,14 @@
 #!/usr/bin/perl -w
 
+#######################################################################################
+#
+# Script that searches a dir containing PSPS schema files, finds those that comtain the 
+# tables on interest then parses them into an XML format. Also generates C-header files 
+# containing enums that detail table column names and numbers.
+#
+#######################################################################################
+
+use warnings;
+use strict;
 use IPC::Cmd 0.36 qw( can_run run );
 use XML::Writer;
@@ -6,6 +16,4 @@
 use Pod::Usage qw( pod2usage );
 
-use warnings;
-use strict;
 
 my ($schemaPath, $type);
@@ -294,5 +302,4 @@
         $default =~ s/'//g;
         if ($type ne "TSTRING" && !$default) {$default = "0";}
-        #   print "got default='$default'\n";
         if ($ISBINARY && $default eq "0x") {$default = "";}
     }