diff options
| author | Kenneth Duda <kjd@cisco.com> | 1998-09-27 13:22:12 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-02 01:36:14 +0000 |
| commit | 6062c5872245fd543e745c009f447b5dc5ad78c1 (patch) | |
| tree | c6693585ead17efcf1c6355d284216f47e763bf7 /writemain.SH | |
| parent | ebb9925428467601f365b797b9f30a0507ef87e1 (diff) | |
| download | perl-6062c5872245fd543e745c009f447b5dc5ad78c1.tar.gz | |
writemain dies when there are more than 4000 characters of extensions
Message-Id: <199809280322.UAA01261@scorpion.cisco.com>
p4raw-id: //depot/perl@1902
Diffstat (limited to 'writemain.SH')
| -rw-r--r-- | writemain.SH | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/writemain.SH b/writemain.SH index c428383085..025d954241 100644 --- a/writemain.SH +++ b/writemain.SH @@ -37,7 +37,11 @@ $spitshell >>writemain <<'!NO!SUBS!' orig="$*" args='' : Remove any .a suffixes and any leading path components -for file in `echo $orig | sed 's/\.a//g'` ; do +for file in $orig ; do + case "$file" in + *.a) file=`echo $file | sed 's/\.a//g'` + ;; + esac case "$file" in ext/*) file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'` ;; |