/[Sack]/trunk/bin/sack.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/sack.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 84 by dpavlin, Tue Sep 29 16:54:05 2009 UTC revision 87 by dpavlin, Wed Sep 30 19:30:45 2009 UTC
# Line 76  sub BEGIN { Line 76  sub BEGIN {
76    
77  }  }
78    
79    our $digest_module = 'Sack::Digest::' . ( $ENV{SACK_DIGEST} || 'BerkeleyDB' );
80  use lib "$prefix/srv/Sack/lib/";  use lib "$prefix/srv/Sack/lib/";
81  use Sack::Digest;  my $digest_path = $digest_module;
82  our $digest = Sack::Digest->new( port => $port, clean => 1 );  $digest_path =~ s{::}{/}g;
83    require "lib/$digest_path.pm";
84    
85    our $digest = $digest_module->new( port => $port, clean => 1 );
86  sub digest { $digest->to_int($_[0]) }  sub digest { $digest->to_int($_[0]) }
87    
88    warn "[$port] using $digest_module\n";
89    
90  use lib "$prefix/srv/webpac2/lib/";  use lib "$prefix/srv/webpac2/lib/";
91  use WebPAC::Input::ISI;  use WebPAC::Input::ISI;
92    
Legend:
Removed from v.84  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.26