head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	96.10.31.16.36.59;	author alexis;	state Exp;
branches;
next	1.1;

1.1
date	96.10.29.14.15.12;	author alexis;	state Exp;
branches;
next	;


desc
@Temporary File Registration Library
@


1.2
log
@forgot to quote the package name.
@
text
@($modvers{'tfr.pl'} = '$Id: tfr.pl,v 1.1 1996/10/29 14:15:12 alexis Exp alexis $') =~ s/^.*,v (\S+) .*$/$1/;

package tfr;

sub del
{
    foreach $key (keys(%tmpregfiles)) {
        unlink($key);
    }

    exit 3;
}

sub reg
{
    local($file);

    foreach $file (@@_) {
        $tmpregfiles{$file} = 1;
    }
}

sub dereg
{
    local($file);

    foreach $file (@@_) {
        delete $tmpregfiles{$file};
    }
}

1;
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
($modvers{'tfr.pl'} = '$Id$') =~ s/^.*,v (\S+) .*$/$1/;
d3 1
a3 1
package 'tfr';
@