File: perl_kill.pl

package info (click to toggle)
suck 4.3.4-1
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye, buster
  • size: 1,148 kB
  • sloc: ansic: 12,085; perl: 528; sh: 363; makefile: 348; java: 144
file content (13 lines) | stat: -rwxr-xr-x 195 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
# sample perl routine for killfiles
package Embed::Persistant;

sub perl_kill {

	my $header = $_[0];  # header
	my $retval = 0;

	if($header =~ /WANTED/) {
		$retval = 1; 
	}
	return $retval;
}