Changeset 40503 for trunk/psLib/utils/psParseErrorCodes

Timestamp:

Jul 6, 2018, 4:49:58 PM (8 years ago)

Author:

eugene

Message:

modern perl requires protected brackets in regex

File:

• trunk/psLib/utils/psParseErrorCodes (modified) (1 diff)

trunk/psLib/utils/psParseErrorCodes

@@ -65 +65 @@
     print "\nOutput File: $output\n" if $verbose;
     while (<INFILE>) {
-        if (/\${ErrorCode}/ || /\${ErrorDescription}/ || /\${n}/) {
+        if (/\$\{ErrorCode}/ || /\$\{ErrorDescription}/ || /\$\{n}/) {
             $line = $_;
             for ( $n = 0 ; $n < $found ; $n++ ) {
                 $_ = $line;
-                s/\${ErrorCode}/$ErrorCodes[$n]/g;
-                s/\${ErrorDescription}/$ErrorDescriptions[$n]/g;
-                s/\${n}/$n/g;
+                s/\$\{ErrorCode}/$ErrorCodes[$n]/g;
+                s/\$\{ErrorDescription}/$ErrorDescriptions[$n]/g;
+                s/\$\{n}/$n/g;
                 print OUTFILE;
                 print if $verbose;