openbsd/OpenBSDTorrents/MakeTorrents.pl - diff

Return to MakeTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.19, 2006/05/15 19:47:04

version 1.21, 2006/11/06 23:17:59

Line 1

#!/usr/bin/perl -T

#!/usr/bin/perl

#$RedRiver: MakeTorrents.pl,v 1.18 2005/05/20 16:25:35 andrew Exp $

# -T

#$RedRiver: MakeTorrents.pl,v 1.20 2006/07/24 18:03:53 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 40

Line 41

return 1 if $StartDir ne $OBT->{BASENAME};

foreach my $subdir (@$dirs) {

next if $subdir eq '.';

next if $subdir =~ /^\./;

next if $subdir eq '..';

Process_Dir("$basedir/$subdir")

}

Line 112

my $t = BT::MetaInfo::Cached->new(

{

cache_root =>

cache_root => '/tmp/OBTFileCache'

$OBT->{DIR_HOME} . '/FileCache'

}

);