Changeset 1807 for trunk/psLib/src/parseErrorCodes.pl

Timestamp:

Sep 14, 2004, 10:01:52 AM (22 years ago)

Author:

desonia

Message:

Updated files in src/collections to use new psError functionality. Also
cleaned up the code where needed, removing unnecessary error conditions,
etc.

File:

• trunk/psLib/src/parseErrorCodes.pl (modified) (1 diff)

trunk/psLib/src/parseErrorCodes.pl

@@ -34 +34 @@
     }
     else {
-        /^\s*(\w+)\s+([\%\w].*)/;
-        my $ErrorCode        = $1;
-        my $ErrorDescription = $2;
-        print "  $ErrorCode: '$ErrorDescription'\n" if $verbose;
-        push( @ErrorCodes,        $ErrorCode );
-        push( @ErrorDescriptions, $ErrorDescription );
-
+        if (/^\s*(\w+)\s+([\%\w].*)/) {
+            my $ErrorCode        = $1;
+            my $ErrorDescription = $2;
+            print "  $ErrorCode: '$ErrorDescription'\n" if $verbose;
+            push( @ErrorCodes,        $ErrorCode );
+            push( @ErrorDescriptions, $ErrorDescription );
+        } else {
+            print "I $_\n" if $verbose;
+        }
     }
 }