diff options
| author | Jörg Mayer <jmayer@loplof.de> | 2005-08-27 15:11:00 +0000 |
|---|---|---|
| committer | Jörg Mayer <jmayer@loplof.de> | 2005-08-27 15:11:00 +0000 |
| commit | f718b0d6a18f28e9d9ff949385856a1b430e6a6b (patch) | |
| tree | 63ad8c1490fc59bdb121310f8b7e1ee108236f8b /make-manuf | |
| parent | 0f20cf1abb2550b7ccb790eef6ef1164e52acf7b (diff) | |
Remove S/A from company names
svn path=/trunk/; revision=15568
Diffstat (limited to 'make-manuf')
| -rwxr-xr-x | make-manuf | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/make-manuf b/make-manuf index 1a53e3086e..9a68636023 100755 --- a/make-manuf +++ b/make-manuf @@ -45,11 +45,11 @@ sub shorten my $origmanuf = shift; my $manuf = " " . $origmanuf . " "; # Remove any punctuation - $manuf =~ tr/,.()/ /; + $manuf =~ tr/',.()/ /; # & isn't needed when Standalone $manuf =~ s/ \& / /g; # Remove any "the", "inc", "plc" ... - $manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi; + $manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|s\/a|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi; # Convert to consistent case $manuf =~ s/(\w+)/\u\L$1/g; # Remove all spaces |