diff options
| author | fukachan <fukachan> | 2002-12-22 03:08:49 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-22 03:08:49 +0000 |
| commit | 9b0d28906c98372ca271f501ea435f2d418f2a5f (patch) | |
| tree | 924e8d28f9ba217d8e3625a8f3016dd04c1c777e /fml/lib | |
| parent | 1d0a96a72ca6b9817238e2d0864abd6f465f257d (diff) | |
| download | fml8-9b0d28906c98372ca271f501ea435f2d418f2a5f.tar.gz fml8-9b0d28906c98372ca271f501ea435f2d418f2a5f.tar.bz2 fml8-9b0d28906c98372ca271f501ea435f2d418f2a5f.zip | |
fix copyright, comments.
cosmetics.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message/Utils.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/fml/lib/Mail/Message/Utils.pm b/fml/lib/Mail/Message/Utils.pm index 1133de3c..7c97d60c 100644 --- a/fml/lib/Mail/Message/Utils.pm +++ b/fml/lib/Mail/Message/Utils.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.3 2002/09/11 23:18:28 fukachan Exp $ +# $FML: Utils.pm,v 1.4 2002/09/22 14:57:05 fukachan Exp $ # package Mail::Message::Utils; @@ -42,16 +42,14 @@ remove subject tag like string such as [elena 100]. sub remove_subject_tag_like_string { my ($str) = @_; + $str =~ s/^\s*\W[-\w]+.\s*\d+\W//g; $str =~ s/\s+/ /g; $str =~ s/^\s*//g; - $str; -} - -=head1 CODING STYLE + return $str; +} -See C<http://www.fml.org/software/FNF/> on fml coding style guide. =head1 CODING STYLE @@ -63,7 +61,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2001,2002 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |