diff options
Diffstat (limited to 'perl-install/unused')
| -rw-r--r-- | perl-install/unused/cdrom.pm | 2 | ||||
| -rw-r--r-- | perl-install/unused/dns.pm | 30 | ||||
| -rw-r--r-- | perl-install/unused/otherinsmod.pm | 2 | ||||
| -rw-r--r-- | perl-install/unused/scsi.pm | 6 |
4 files changed, 20 insertions, 20 deletions
diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm index 6ba5f5152..b9b6ea699 100644 --- a/perl-install/unused/cdrom.pm +++ b/perl-install/unused/cdrom.pm @@ -34,7 +34,7 @@ sub setupCDdevice { } sub removeCDmodule { - #- this wil fail silently if no CD module has been loaded + #- this wil fail silently if no CD module has been loaded removeDeviceDriver('cdrom'); 1; } diff --git a/perl-install/unused/dns.pm b/perl-install/unused/dns.pm index baad57f9e..5e6bb5f5b 100644 --- a/perl-install/unused/dns.pm +++ b/perl-install/unused/dns.pm @@ -1,7 +1,7 @@ use diagnostics; use strict; -# This is dumb, but glibc doesn't like to do hostname lookups w/o libc.so +# This is dumb, but glibc doesn't like to do hostname lookups w/o libc.so #TODO TODO @@ -10,7 +10,7 @@ sub doQuery { # # _res.retry = 2; # -# len = res_search(query, C_IN, queryType, (void *) &response, +# len = res_search(query, C_IN, queryType, (void *) &response, # sizeof(response)); # if (len <= 0) return -1; # @@ -20,44 +20,44 @@ sub doQuery { # # data = response.buf + sizeof(HEADER); # end = response.buf + len; -# -# # skip the question +# +# # skip the question # data += dn_skipname(data, end) + QFIXEDSZ; # -# # parse the answer(s) +# # parse the answer(s) # while (--ancount >= 0 && data < end) { # -# # skip the domain name portion of the RR record +# # skip the domain name portion of the RR record # data += dn_skipname(data, end); # -# # get RR information +# # get RR information # GETSHORT(type, data); -# data += INT16SZ; # skipp class -# data += INT32SZ; # skipp TTL +# data += INT16SZ; # skipp class +# data += INT32SZ; # skipp TTL # GETSHORT(len, data); # # if (type == T_PTR) { -# # we got a pointer +# # we got a pointer # len = dn_expand(response.buf, end, data, name, sizeof(name)); # if (len <= 0) return -1; # if (queryType == T_PTR && domainName) { -# # we wanted a pointer +# # we wanted a pointer # *domainName = malloc(strlen(name) + 1); # strcpy(*domainName, name); # return 0; # } # } else if (type == T_A) { -# # we got an address +# # we got an address # if (queryType == T_A && ipNum) { -# # we wanted an address +# # we wanted an address # memcpy(ipNum, data, sizeof(*ipNum)); # return 0; # } # } # -# # move ahead to next RR +# # move ahead to next RR # data += len; -# } +# } # # return -1; } diff --git a/perl-install/unused/otherinsmod.pm b/perl-install/unused/otherinsmod.pm index fb62ff945..1a8eee9ff 100644 --- a/perl-install/unused/otherinsmod.pm +++ b/perl-install/unused/otherinsmod.pm @@ -18,7 +18,7 @@ sub insmod { } my $rc = insmod_main($tmpname || $file, @_); - + unlink($tmpname); return $rc; diff --git a/perl-install/unused/scsi.pm b/perl-install/unused/scsi.pm index 1b185a8ad..b92185d46 100644 --- a/perl-install/unused/scsi.pm +++ b/perl-install/unused/scsi.pm @@ -58,7 +58,7 @@ sub ideGetDevices { -r "/proc/ide" or die "sorry, /proc/ide not available, seems like you have a pre-2.2 kernel\n => not handled yet :("; - #- Great. 2.2 kernel, things are much easier and less error prone. + #- Great. 2.2 kernel, things are much easier and less error prone. foreach my $d (glob_('/proc/ide/hd*')) { my ($t) = chop_(cat_("$d/media")); my $type = $ {{disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd'}}{$t} or next; @@ -94,10 +94,10 @@ sub dac960GetDevices { open F, $file or die "Failed to open $file: $!"; #- We are looking for lines of this format:DAC960#0: - #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012 + #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012 foreach (<F>) { my ($devicename, $info) = m|/dev/rd/(.*?): (.*?),| or next; - push @idi, { info => $info, type => 'hd', devicename => $devicename }; + push @idi, { info => $info, type => 'hd', devicename => $devicename }; log::l("DAC960: $devicename: $info"); } [ @idi ]; |