1.1 --- a/filter.pm	Thu Sep 10 08:01:18 2009 -0400
     1.2 +++ b/filter.pm	Fri Mar 19 07:28:10 2010 -0400
     1.3 @@ -1,26 +1,28 @@
     1.4 -package Filter;
     1.5 -use base 'Exporter';
     1.6 -our @EXPORT = ('filter');
     1.7 -
     1.8 -
     1.9 -sub filter
    1.10 -{
    1.11 -
    1.12 -	$ref = shift;
    1.13 -	@list = @_;
    1.14 -	my @ret = ();
    1.15 -	
    1.16 -	for $element(@list)
    1.17 -	{
    1.18 -		if ($ref->($element))
    1.19 -		{
    1.20 -			push @ret, $element;
    1.21 -		}
    1.22 -	}
    1.23 -
    1.24 -	return @ret
    1.25 -	
    1.26 -}
    1.27 -
    1.28 -
    1.29 -1;
    1.30 \ No newline at end of file
    1.31 +#!/usr/bin/perl
    1.32 +
    1.33 +package Filter;
    1.34 +use base 'Exporter';
    1.35 +our @EXPORT = ('filter');
    1.36 +
    1.37 +
    1.38 +sub filter
    1.39 +{
    1.40 +
    1.41 +	$ref = shift;
    1.42 +	@list = @_;
    1.43 +	my @ret = ();
    1.44 +	
    1.45 +	for $element(@list)
    1.46 +	{
    1.47 +		if ($ref->($element))
    1.48 +		{
    1.49 +			push @ret, $element;
    1.50 +		}
    1.51 +	}
    1.52 +
    1.53 +	return @ret
    1.54 +	
    1.55 +}
    1.56 +
    1.57 +
    1.58 +1;