Changeset 17539 for trunk/Nebulous-Server/lib/Nebulous/Server.pm
- Timestamp:
- May 6, 2008, 12:12:07 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm
r17536 r17539 1 1 # Copyright (c) 2004-2008 Joshua Hoblitt 2 2 # 3 # $Id: Server.pm,v 1.6 1 2008-05-06 02:51:20jhoblitt Exp $3 # $Id: Server.pm,v 1.62 2008-05-06 22:10:58 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server; … … 7 7 use strict; 8 8 use warnings FATAL => qw( all ); 9 no warnings qw( uninitialized ); 9 10 10 11 our $VERSION = '0.08'; … … 151 152 callbacks => { 152 153 # check that the volume requested is valid 153 'is valid volume name' => sub { $self->_is_valid_volume_name($_[0]) }, 154 'is valid volume name' => sub { 155 return 1 if not defined $_[0]; 156 $self->_is_valid_volume_name($_[0]) 157 }, 154 158 }, 155 159 optional => 1, … … 317 321 }, 318 322 { 319 type => SCALAR ,323 type => SCALAR|UNDEF, 320 324 callbacks => { 321 325 # check that the volume name requested is valid 322 'is valid volume name' => sub { $self->_is_valid_volume_name($_[0]) }, 326 'is valid volume name' => sub { 327 return 1 if not defined $_[0]; 328 $self->_is_valid_volume_name($_[0]) 329 }, 323 330 }, 324 331 optional => 1, … … 910 917 }, 911 918 { 912 type => SCALAR ,919 type => SCALAR|UNDEF, 913 920 callbacks => { 914 921 # check that the volume name requested is valid 915 'is valid volume name' => sub { $self->_is_valid_volume_name($_[0]) }, 922 'is valid volume name' => sub { 923 return 1 if not defined $_[0]; 924 $self->_is_valid_volume_name($_[0]) 925 }, 916 926 }, 917 927 optional => 1,
Note:
See TracChangeset
for help on using the changeset viewer.
