Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/battery/acpi_batt_ | ||
|---|---|---|
| 1 | 1 |
#!/usr/bin/perl -w |
| 2 |
# -*- perl -*-
|
|
| 2 |
# -*- perl -*- |
|
| 3 | 3 |
|
| 4 | 4 |
=head1 NAME |
| 5 | 5 |
|
| ... | ... | |
| 41 | 41 |
|
| 42 | 42 |
#%# family=power |
| 43 | 43 |
|
| 44 |
=head1 VERSION
|
|
| 45 |
=head1 BUGS
|
|
| 44 |
=head1 VERSION |
|
| 45 |
=head1 BUGS |
|
| 46 | 46 |
|
| 47 | 47 |
None known. |
| 48 | 48 |
|
| ... | ... | |
| 99 | 99 |
$val = "unknown"; |
| 100 | 100 |
} |
| 101 | 101 |
elsif ( $var ne "batery type" or $var ne "serial number" or $var ne "OEM info" ) |
| 102 |
{
|
|
| 102 |
{
|
|
| 103 | 103 |
@tmp = split(" " ,$val);
|
| 104 | 104 |
$val = trim($tmp[0]); |
| 105 | 105 |
} |
Formats disponibles : Unified diff