diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-14 18:18:08 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-14 18:18:08 +0000 |
commit | 0a8dd8ea21004031bf3e1c93e4655b9bfd09504c (patch) | |
tree | 2a764e76bbf29e46a67ba6a7b4da88db29b4f126 /lib/sbin/CSTUtils.pl | |
parent | d49d5e0c23b826ec2079463c9d5efc13416fb4a2 (diff) |
Untabified.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2408 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CSTUtils.pl')
-rw-r--r-- | lib/sbin/CSTUtils.pl | 50 |
1 files changed, 24 insertions, 26 deletions
diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl index c54880a7..4a1dc2be 100644 --- a/lib/sbin/CSTUtils.pl +++ b/lib/sbin/CSTUtils.pl @@ -1,4 +1,3 @@ - #/*@@ # @routine CST_error # @date 4 July 1999 @@ -21,35 +20,35 @@ sub CST_error if ($full_warnings) { - if ($level == 0) - { - $CST_errors++; + if ($level == 0) + { + $CST_errors++; $error = "\nCST error in $file (at $line)\n -> $mess\n"; - print STDERR "$error\n"; - $error_string .= "$error$help\n"; - } - else - { + print STDERR "$error\n"; + $error_string .= "$error$help\n"; + } + else + { $error = "\nCST warning in $file (at $line)\n -> $mess\n"; - print STDERR "$error\n"; - $error_string .= "$error$help\n"; - } + print STDERR "$error\n"; + $error_string .= "$error$help\n"; + } } else { - if ($level == 0) - { - $CST_errors++; + if ($level == 0) + { + $CST_errors++; $error = "\nCST error $CST_errors:\n -> $mess\n"; - print STDERR "$error\n"; - $error_string .= "$error$help\n"; - } - else - { + print STDERR "$error\n"; + $error_string .= "$error$help\n"; + } + else + { $error = "\nCST warning:\n -> $mess\n"; - print STDERR "$error\n"; - $error_string .= "$error$help\n"; - } + print STDERR "$error\n"; + $error_string .= "$error$help\n"; + } } return; @@ -154,11 +153,11 @@ sub chompme $lastchar = chop($in); if ($lastchar eq "\n") { - return $_; + return $_; } else { - return $in; + return $in; } } @@ -248,4 +247,3 @@ sub TestName } 1; - |