Polished source code.

diff --git a/scripts/boiler-mgr.pl b/scripts/boiler-mgr.pl
index a6fa29b2af202a61c911b924054f919934c5efef..8dc1e0f989108cbefa2847fe7ca80b6f25c01f8f 100755 (executable)
--- a/scripts/boiler-mgr.pl
+++ b/scripts/boiler-mgr.pl
@@ -198,7 +198,7 @@ sub readFile() {
        return $code;
 }
 
-sub writeFile {
+sub writeFile() {
        my ($fname, $code) = @_;
        open(OF, ">$fname") or die("cannot open $fname for writing: $!, stopped");
 
@@ -244,20 +244,20 @@ sub digestable() {
 }
 
 # removes all opening whitespace
-sub trimL {
+sub trimL() {
        my ($code) = @_;
        $code =~ s/^\n[\n\s]*//s;
        return $code;
 }
 
 # removes all trailing whitespace
-sub trimR {
+sub trimR() {
        my ($code) = @_;
        $code =~ s/\n[\n\s]*$//s;
        return $code;
 }
 
-sub Warn {
+sub Warn() {
        my ($msg, $context) = @_;
 
        if (defined $context) {