diff options
| author | Rob Landley <rob@landley.net> | 2006-06-02 21:30:40 +0000 |
|---|---|---|
| committer | Rob Landley <rob@landley.net> | 2006-06-02 21:30:40 +0000 |
| commit | 9a990aaba82fb1e1e718c2485ca388d908c85ad7 (patch) | |
| tree | c20740d23f992dc5604f431106011c1579b9c4cc /examples/depmod.pl | |
| parent | e15d7573a1263fb364d1678c3a46be47a8b5e5ea (diff) | |
| download | busybox-w32-9a990aaba82fb1e1e718c2485ca388d908c85ad7.tar.gz busybox-w32-9a990aaba82fb1e1e718c2485ca388d908c85ad7.tar.bz2 busybox-w32-9a990aaba82fb1e1e718c2485ca388d908c85ad7.zip | |
Patch from Atsushi Nemoto:
This patch make depmod.pl more robust in cross environment. If native
nm did not recognize target's object, you can override it with NM
environment variable.
Diffstat (limited to 'examples/depmod.pl')
| -rwxr-xr-x | examples/depmod.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/depmod.pl b/examples/depmod.pl index 0e66ee3eb..19eca80eb 100755 --- a/examples/depmod.pl +++ b/examples/depmod.pl | |||
| @@ -25,6 +25,7 @@ my $kernelsyms=""; | |||
| 25 | my $stdout=0; | 25 | my $stdout=0; |
| 26 | my $verbose=0; | 26 | my $verbose=0; |
| 27 | my $help=0; | 27 | my $help=0; |
| 28 | my $nm = $ENV{'NM'} || "nm"; | ||
| 28 | 29 | ||
| 29 | # more globals | 30 | # more globals |
| 30 | my (@liblist) = (); | 31 | my (@liblist) = (); |
| @@ -104,7 +105,7 @@ foreach my $obj ( @liblist ){ | |||
| 104 | warn "\nMODULE = $tgtname\n" if $verbose; | 105 | warn "\nMODULE = $tgtname\n" if $verbose; |
| 105 | 106 | ||
| 106 | # get a list of symbols | 107 | # get a list of symbols |
| 107 | my @output=`nm $obj`; | 108 | my @output=`$nm $obj`; |
| 108 | 109 | ||
| 109 | build_ref_tables($tgtname, \@output, $exp, $dep); | 110 | build_ref_tables($tgtname, \@output, $exp, $dep); |
| 110 | } | 111 | } |
| @@ -112,7 +113,7 @@ foreach my $obj ( @liblist ){ | |||
| 112 | 113 | ||
| 113 | # vmlinux is a special name that is only used to resolve symbols | 114 | # vmlinux is a special name that is only used to resolve symbols |
| 114 | my $tgtname = 'vmlinux'; | 115 | my $tgtname = 'vmlinux'; |
| 115 | my @output = $kernelsyms ? `cat $kernelsyms` : `nm $kernel`; | 116 | my @output = $kernelsyms ? `cat $kernelsyms` : `$nm $kernel`; |
| 116 | warn "\nMODULE = $tgtname\n" if $verbose; | 117 | warn "\nMODULE = $tgtname\n" if $verbose; |
| 117 | build_ref_tables($tgtname, \@output, $exp, $dep); | 118 | build_ref_tables($tgtname, \@output, $exp, $dep); |
| 118 | 119 | ||