diff options
| author | fukachan <fukachan> | 2002-04-18 14:18:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-18 14:18:06 +0000 |
| commit | 2a0512995d7f951d3df30e14d41b7ce764cd5f05 (patch) | |
| tree | 2bda22fed1728b9d60eed28dfa1b6726d472c1a4 /regress/base/search.pl | |
| parent | 6813323a46d41165938223ca65ec6dcfb41fdbca (diff) | |
| download | fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.tar.gz fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.tar.bz2 fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.zip | |
more silent, clean up
Diffstat (limited to 'regress/base/search.pl')
| -rwxr-xr-x | regress/base/search.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/regress/base/search.pl b/regress/base/search.pl index c3a16b4f..7393a2e5 100755 --- a/regress/base/search.pl +++ b/regress/base/search.pl @@ -1,17 +1,17 @@ -#!/usr/local/bin/perl +#!/usr/bin/env perl #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: search.pl,v 1.1 2001/04/15 09:09:03 fukachan Exp $ +# $FML: search.pl,v 1.2 2001/05/04 14:32:35 fukachan Exp $ # use IO::Adapter; - -my $map = shift || 'file:/var/spool/ml/elena/actives'; -my $obj = new IO::Adapter $map; +my $debug = defined $ENV{'debug'} ? 1 : 0; +my $map = shift || 'file:/var/spool/ml/elena/actives'; +my $obj = new IO::Adapter $map; $obj->open || croak("cannot open $map"); while ($x = $obj->getline) { print "<< ", $x if $x =~ /\S+/;} |