Changeset 799ec08 for perl/modules

Timestamp:

Aug 5, 2017, 6:48:10 PM (7 years ago)

Author:

Pweaver (Paul Weaver) <paul@mordor.org>

Children:

76d6db1

Parents:

ab9adfc

git-author:

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

git-committer:

Pweaver (Paul Weaver) <paul@mordor.org> (08/05/17 18:48:10)

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');
                 }