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/mime_encode.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/mime_encode.pl')
| -rwxr-xr-x | regress/base/mime_encode.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regress/base/mime_encode.pl b/regress/base/mime_encode.pl index 2e99ea7c..4961dac5 100755 --- a/regress/base/mime_encode.pl +++ b/regress/base/mime_encode.pl @@ -1,12 +1,13 @@ -#!/usr/pkg/bin/perl +#!/usr/bin/env perl # -# $FML$ +# $FML: mime_encode.pl,v 1.1 2001/09/23 14:32:34 fukachan Exp $ # use strict; use lib qw(../../cpan/lib ../../fml/lib ../../im/lib); use MIME::Base64; +my $debug = defined $ENV{'debug'} ? 1 : 0; my $buf = ''; while (<>) { |