/[wait]/trunk/lib/WAIT/Filter.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Filter.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 1  Line 1 
1  #                              -*- Mode: Cperl -*-  #                              -*- Mode: Cperl -*-
2  # $Basename: Filter.pm $  # $Basename: Filter.pm $
3  # $Revision: 1.8 $  # $Revision: 1.9 $
4  # ITIID           : $ITI$ $Header $__Header$  # ITIID           : $ITI$ $Header $__Header$
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Thu Aug 15 18:09:51 1996  # Created On      : Thu Aug 15 18:09:51 1996
# Line 35  require Exporter; Line 35  require Exporter;
35                 );                 );
36  # (most implemented in WAIT.xs)  # (most implemented in WAIT.xs)
37    
38  $VERSION = substr q$Revision: 1.8 $, 10;  $VERSION = substr q$Revision: 1.9 $, 10;
39    
40  sub split {  sub split {
41    map split(' ', $_), @_;    map split(' ', $_), @_;
# Line 91  sub AUTOLOAD { Line 91  sub AUTOLOAD {
91  while (<DATA>) {  while (<DATA>) {
92    chomp;    chomp;
93    last if /__END__/;    last if /__END__/;
94      next if /^\s*#/; # there's a comment
95    $STOP{$_}++;    $STOP{$_}++;
96  }  }
97    
Legend:
Removed from v.13  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26