Added a heading to the Regexp goodie.
parent
77d3bfb315
commit
349efe2a1a
|
@ -67,8 +67,6 @@ handle query_nowhitespace_nodash => sub {
|
|||
}
|
||||
}
|
||||
|
||||
warn "$is_capost";
|
||||
|
||||
# Only exclusive results right now for CA Post.
|
||||
if ($is_capost == 2) {
|
||||
return heading => 'Canada Post Shipment Tracking', html => qq(Track this shipment at <a href="http://www.canadapost.ca/cpotools/apps/track/personal/findByTrackNumber?trackingNumber=$package_number">Canada Post</a>.);
|
||||
|
|
|
@ -34,7 +34,7 @@ handle query => sub {
|
|||
@results = $str =~ compile_re($regexp, $compiler);
|
||||
};
|
||||
|
||||
return join( ' | ', @results );
|
||||
return join( ' | ', @results ), heading => 'Regexp Result';
|
||||
};
|
||||
|
||||
1;
|
Loading…
Reference in New Issue