#!/usr/bin/perl -w
# vi: set ts=4:
# Copyright (c) 2001 David Schleef <ds@schleef.org>
-# Copyright (c) 2001 Erik Andersen <andersen@lineo.com>
+# Copyright (c) 2001 Erik Andersen <andersen@codepoet.org>
# Copyright (c) 2001 Stuart Hughes <stuarth@lineo.com>
# Copyright (c) 2002 Steven J. Hill <shill@broadcom.com>
-# This program is free software; you can redistribute it and/or modify it
+# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
# TODO -- use strict mode...
warn "WARNING: base directory does not match ..../lib/modules\n";
}
-# Find the list of .o files living under $basedir
+# Find the list of .o files living under $basedir
#if ($verbose) { printf "Locating all modules\n"; }
my($ofile) = "";
my($file) = "";
my(@liblist) = ();
-find sub {
- if ( -f $_ && ! -d $_ ) {
+find sub {
+ if ( -f $_ && ! -d $_ ) {
$file = $File::Find::name;
if ( $file =~ /.o$/ ) {
push(@liblist, $file);
foreach $module (keys %$dep) {
$mod->{$module} = {};
foreach (@{$dep->{$module}}) {
- if( $exp->{$_} ) {
+ if( $exp->{$_} ) {
warn "resolved symbol $_ in file $exp->{$_}\n" if $verbose;
next if $exp->{$_} =~ /vmlinux/;
$mod->{$module}{$exp->{$_}} = 1;
} else {
warn "unresolved symbol $_ in file $module\n";
}
- }
+ }
}
# resolve the dependancies for each module
=head1 COPYRIGHT
Copyright (c) 2001 David Schleef <ds@schleef.org>
-Copyright (c) 2001 Erik Andersen <andersen@lineo.com>
+Copyright (c) 2001 Erik Andersen <andersen@codepoet.org>
Copyright (c) 2001 Stuart Hughes <stuarth@lineo.com>
-This program is free software; you can redistribute it and/or modify it
+This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 AUTHOR
=cut
-# $Id: depmod.pl,v 1.2 2002/10/08 21:33:51 sjhill Exp $
+# $Id: depmod.pl,v 1.4 2004/03/15 08:28:33 andersen Exp $