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/modulus_seq.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/modulus_seq.pl')
| -rwxr-xr-x | regress/base/modulus_seq.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/regress/base/modulus_seq.pl b/regress/base/modulus_seq.pl index c8517cba..9fbbe2c5 100755 --- a/regress/base/modulus_seq.pl +++ b/regress/base/modulus_seq.pl @@ -1,9 +1,11 @@ -#!/usr/local/bin/perl +#!/usr/bin/env perl # -# $FML: modulus_seq.pl,v 1.1 2001/02/21 03:41:18 fukachan Exp $ +# $FML: modulus_seq.pl,v 1.2 2001/06/17 09:00:30 fukachan Exp $ # -$seq_file = "/tmp/.seq"; +use strict; +my $debug = defined $ENV{'debug'} ? 1 : 0; +my $seq_file = "/tmp/.seq"; for ( 1 .. 10 ) { &id; |