Changeset a4b854a for perl/modules/Kerberos/lib/BarnOwl/Module/Kerberos.pm

Timestamp:

Aug 5, 2017, 6:57:42 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

8eb72d2

Parents:

20ec886

git-author:

Jason Gross <jgross@mit.edu> (08/05/17 18:32:09)

git-committer:

Jason Gross <jasongross9@gmail.com> (08/05/17 18:57:42)

Message:

Make spacing in Kerberos.pm more uniform

File:

• perl/modules/Kerberos/lib/BarnOwl/Module/Kerberos.pm (modified) (3 diffs)

perl/modules/Kerberos/lib/BarnOwl/Module/Kerberos.pm

@@ -70 +70 @@
 
     my $password = shift;
-    my($stdin, $stdout, $stderr);
+    my ($stdin, $stdout, $stderr);
     use Symbol 'gensym'; $stderr = gensym;
     my $pid = open3($stdin, $stdout, $stderr, 'kinit', '-l7d') or die("Failed to run kinit");
@@ -80 +80 @@
 
     $hdlin->push_write($password .  "\n");
-    $hdlerr->push_read (line => sub {
+    $hdlerr->push_read(line => sub {
         my ($hdl, $line) = @_;
         $output .= $line;
@@ -87 +87 @@
     $kinit_watcher = AnyEvent->child (pid => $pid, cb => sub {
         my ($pid, $status) = @_;
-        if ($status != 0){
+        if ($status != 0) {
             BarnOwl::error($output);
-        }
-        else{
-            if(BarnOwl::getvar("aklog") == 'on'){
+        } else {
+            if (BarnOwl::getvar("aklog") == 'on') {
                 my $status = system('aklog');
-                if ($status != 0){
+                if ($status != 0) {
                     BarnOwl::error('Aklog Failed');
                 }