Parent Directory | Revision Log | Patch
revision 15 by dpavlin, Thu Jun 28 10:34:39 2007 UTC | revision 16 by dpavlin, Thu Jun 28 10:38:34 2007 UTC | |
---|---|---|
# | Line 36 while(<>) { | Line 36 while(<>) { |
36 | ||
37 | my $orig = $_; | my $orig = $_; |
38 | ||
39 | my $stem = StemHr::stem($_); | my $stem = StemHR->stem($_); |
40 | ||
41 | if (s/^(.+)\s(\d+)$/$1\t$2/g) { | if (s/^(.+)\s(\d+)$/$1\t$2/g) { |
42 | $rules{$2}++; | $rules{$2}++; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |