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/cachedir.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/cachedir.pl')
| -rwxr-xr-x | regress/base/cachedir.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/regress/base/cachedir.pl b/regress/base/cachedir.pl index 4186a29e..fdc42b00 100755 --- a/regress/base/cachedir.pl +++ b/regress/base/cachedir.pl @@ -1,15 +1,16 @@ -#!/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: cachedir.pl,v 1.2 2001/04/04 12:27:30 fukachan Exp $ +# $FML: cachedir.pl,v 1.3 2001/04/04 14:47:56 fukachan Exp $ # -d "/tmp/b" || mkdir("/tmp/b", 0755); +my $debug = defined $ENV{'debug'} ? 1 : 0; use File::CacheDir; |