X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fbin%2Frt.in;h=d12460b06f9ed1899bdc52c4dda2b3f2d103d562;hb=c8cccb4a92adceb943c635fe62dad0d034462ce0;hp=86c83ca501d4d34f9378e41df7262e3f4f7d7f07;hpb=f7fd2a3e34da751cbc02bbf215e99c6dc89adc15;p=freeside.git diff --git a/rt/bin/rt.in b/rt/bin/rt.in index 86c83ca50..d12460b06 100644 --- a/rt/bin/rt.in +++ b/rt/bin/rt.in @@ -1,9 +1,9 @@ #!@PERL@ -w -# {{{ BEGIN BPS TAGGED BLOCK +# BEGIN BPS TAGGED BLOCK {{{ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -43,7 +43,11 @@ # works based on those contributions, and sublicense and distribute # those contributions and any derivatives thereof. # -# }}} END BPS TAGGED BLOCK +# END BPS TAGGED BLOCK }}} + +# Designed and implemented for Best Practical Solutions, LLC by +# Abhijit Menon-Sen + use strict; # This program is intentionally written to have as few non-core module @@ -1255,7 +1259,7 @@ sub vsplit { my @values = ref $val eq 'ARRAY' ? @$val : $val; foreach my $line (map {split /\n/} @values) { - # XXX: This should become a real parser, à la Text::ParseWords. + # XXX: This should become a real parser, à la Text::ParseWords. $line =~ s/^\s+//; $line =~ s/\s+$//; push @words, split /\s*,\s*/, $line; @@ -1771,7 +1775,7 @@ Text: Examples: - rt comment -t 'Not worth fixing.' -a stddisclaimer.h 23 + rt comment -m 'Not worth fixing.' -a stddisclaimer.h 23 --