Changeset 27570 for gs2-extensions/parallel-building
- Timestamp:
- 2013-06-07T10:53:10+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDThriftFS/ThriftFH.pm
r27384 r27570 50 50 $self->{'mode'} = 'r'; 51 51 $self->{'read_offset'} = 0; # A read offset 52 $self->{'warnings'} = {'binmode' => 0}; 52 53 return bless $self, $class; 53 54 } … … 241 242 return $self; 242 243 } 243 ## open() 244 245 244 ## open() ## 245 246 247 ## @function binmode() 248 # 246 249 sub BINMODE 247 250 { 248 print STDERR "ThriftFH::BINMODE() - implement me!\n"; 249 } 250 251 # Have we warned about BIN mode not being applicable? 252 if ($self->{'warnings'}->{'binmode'} != 1) 253 { 254 print STDERR "Notice! BIN mode not applicable in ThriftFS (all data base91 encoded)\n"; 255 # we have now! 256 $self->{'warnings'}->{'binmode'} = 1; 257 } 258 } 259 ## BINMODE 260 261 262 ## @function eof() 263 # 251 264 sub EOF 252 265 { … … 254 267 return $self->{'eof'}; 255 268 } 269 ## eof() ## 270 256 271 257 272 sub TELL
Note:
See TracChangeset
for help on using the changeset viewer.