Changeset 13209 for trunk/Nebulous-Server/lib/Nebulous/Server.pm
- Timestamp:
- May 3, 2007, 2:48:08 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm
r13203 r13209 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Server.pm,v 1.3 4 2007-05-03 22:10:13jhoblitt Exp $3 # $Id: Server.pm,v 1.35 2007-05-04 00:47:42 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server; … … 8 8 use warnings FATAL => qw( all ); 9 9 10 our $VERSION = '0.0 4';10 our $VERSION = '0.05'; 11 11 12 12 use base qw( Class::Accessor::Fast ); … … 206 206 # actual on disk file name we can't try to create the file until after 207 207 # we've create both a new storage_storage object and instance. 208 my $filename = $key; 209 # mange '/'s into ':' 210 $key =~ s|/|:|g; 208 211 my $uri = URI::file->new("$vol_path/$key.$ins_id"); 209 212 $log->debug("generated uri $uri");
Note:
See TracChangeset
for help on using the changeset viewer.
