Changeset 19431 for trunk/Nebulous-Server/lib/Nebulous/Keys.pm
- Timestamp:
- Sep 8, 2008, 4:18:47 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/lib/Nebulous/Keys.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Keys.pm
r18451 r19431 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Keys.pm,v 1. 2 2008-07-09 23:32:35jhoblitt Exp $3 # $Id: Keys.pm,v 1.3 2008-09-09 02:18:47 jhoblitt Exp $ 4 4 5 5 package Nebulous::Keys; … … 8 8 use warnings FATAL => qw( all ); 9 9 10 our $VERSION = '0.0 1';10 our $VERSION = '0.02'; 11 11 12 12 use base qw( Exporter Class::Accessor::Fast ); … … 99 99 my $soft_volume; 100 100 # check to see if there is a tilde and remove it if found 101 if(defined $volume and $volume =~ s/^~//) {101 unless (defined $volume and $volume =~ s/^~//) { 102 102 $soft_volume = 1; 103 103 }
Note:
See TracChangeset
for help on using the changeset viewer.
