diff --git a/pod_feeder.pl b/pod_feeder.pl index 25fdbc1..96609db 100755 --- a/pod_feeder.pl +++ b/pod_feeder.pl @@ -439,7 +439,7 @@ sub hashtagify { # drop stop words # TODO : make these overridable next if length( $item ) < 3; - next if lc( $item ) =~ m/^(and|are|but|can|for|from|had|her|his|have|how|its|that|the|their|they|theyre|this|was|what|when|you)$/; + next if lc( $item ) =~ m/^a(lso|nd|ny|re)|been|but|can(not|t)?|e(ach|tc|very)|for|from|g(e|o)t|ha(d|ve)|has(nt)?|hers?|hi(m|s)|how|its|no(r|t)|ours?|she|some|th(an|at|em?|eirs?|(e|o)se|ey|eyre|is)|too|very|was|wh(at|en|o)|with|you(r|rs)?$/; # hashtagify it $item = '#' . $item; # use a hash here instead of an ordered list for auto-dedupe