Changeset 6406

Timestamp:

02/09/08 05:01:49 (5 years ago)

Author:

kawa0117

Message:

Device-Gainer tab to white spaces

Files:

• lang/perl/Device-Gainer/trunk/lib/Device/Gainer.pm (modified) (5 diffs)

lang/perl/Device-Gainer/trunk/lib/Device/Gainer.pm

@@ -46 +46 @@
     my $self = shift;
     my $data = shift;
-        $data = sprintf( "%X" x 4, @$data ) if ref $data;
-        my $mess = sprintf( 'D%s*', $data );
-        $self->command($mess);
+    $data = sprintf( "%X" x 4, @$data ) if ref $data;
+    my $mess = sprintf( 'D%s*', $data );
+    $self->command($mess);
 }
 
@@ -54 +54 @@
     my $self = shift;
     my $ch   = shift;
-        my $mess = sprintf( 'H%X*', $ch );
-        $self->command($mess);
+    my $mess = sprintf( 'H%X*', $ch );
+    $self->command($mess);
 }
 
@@ -61 +61 @@
     my $self = shift;
     my $ch   = shift;
-        my $mess = sprintf( 'L%X*', $ch );
-        $self->command($mess);
+    my $mess = sprintf( 'L%X*', $ch );
+    $self->command($mess);
 }
 
@@ -75 +75 @@
     my $list = [ reverse ((split( //, $ret))[1..$digch]) ];
     print join "-", @$list, "\n";
-        return $list->[$ch] if defined $ch;
+    return $list->[$ch] if defined $ch;
     $list;
 }
@@ -178 +178 @@
     $DEBUG and print STDERR "RECV: $ret\n";
     if ( $temp->[0] eq 'N' ) {
-        my $sub = $self->{on_pressed};
-        &$sub( $self ) if ( ref $sub );
-        return $self->recv( $expect );
+        my $sub = $self->{on_pressed};
+        &$sub( $self ) if ( ref $sub );
+        return $self->recv( $expect );
     }
     if ( $temp->[0] eq 'F' ) {
-        my $sub = $self->{on_released};
-        &$sub( $self ) if ( ref $sub );
-        return $self->recv( $expect );
+        my $sub = $self->{on_released};
+        &$sub( $self ) if ( ref $sub );
+        return $self->recv( $expect );
     }
     if ( defined $expect && $ret ne $expect ) {