Changeset cc6de81 for perl/lib/BarnOwl/Message.pm

Timestamp:

Oct 16, 2017, 1:32:29 PM (8 years ago)

Author:

Adam Glasgall <glasgall@mit.edu>

Children:

ca7ab9d

Parents:

c753a6a

git-author:

Adam Glasgall <glasgall@mit.edu> (11/19/16 22:29:26)

git-committer:

Adam Glasgall <glasgall@mit.edu> (10/16/17 13:32:29)

Message:

untabify files and add file-local variables to keep them that way. Thanks to adehnert for noticing the tabs

File:

• perl/lib/BarnOwl/Message.pm (modified) (3 diffs)

perl/lib/BarnOwl/Message.pm

@@ -102 +102 @@
     my $s;
     for my $f (keys %$this) {
-        my $val = $this->{$f};
-        if (ref($val) eq "ARRAY") {
-            for my $i (0..@$val-1) {
-                my $aval;
-                $aval = $val->[$i];
-                $aval =~ s/\n/\n$f.$i: /g;
-                $s .= "$f.$i: $aval\n";
-            }
-        } else {
-            $val =~ s/\n/\n$f: /g;
-            $s .= "$f: $val\n";
-        }
+        my $val = $this->{$f};
+        if (ref($val) eq "ARRAY") {
+            for my $i (0..@$val-1) {
+                my $aval;
+                $aval = $val->[$i];
+                $aval =~ s/\n/\n$f.$i: /g;
+                $s .= "$f.$i: $aval\n";
+            }
+        } else {
+            $val =~ s/\n/\n$f: /g;
+            $s .= "$f: $val\n";
+        }
     }
     return $s;
@@ -304 +304 @@
     $BarnOwl::auth       = $m->auth      ;
     if ($m->fields) {
-        @BarnOwl::fields = @{$m->fields};
-        @main::fields = @{$m->fields};
+        @BarnOwl::fields = @{$m->fields};
+        @main::fields = @{$m->fields};
     } else {
-        @BarnOwl::fields = undef;
-        @main::fields = undef;
+        @BarnOwl::fields = undef;
+        @main::fields = undef;
     }
 }
@@ -331 +331 @@
 
 1;
+
+# Local Variables:
+# indent-tabs-mode: nil
+# End: