Changeset 27479 for gs2-extensions
- Timestamp:
- 2013-05-27T12:14:51+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDFSShell.pm
r27423 r27479 29 29 # Pragma 30 30 use strict; 31 32 # Modules33 use DateTime;34 31 35 32 # Configuration … … 262 259 { 263 260 my ($path) = @_; 261 &FileUtils::printWarning("modificationTime() not supported"); 264 262 my $file_stats = &fileStats($path); 265 263 my $mod_date = $file_stats->{'modification_date'}; … … 272 270 my $mod_hour = $1; 273 271 my $mod_minute = $2; 274 my $mod_datetime = DateTime->new(year => $mod_year, 275 month => $mod_month, 276 day => $mod_day, 277 hour => $mod_hour, 278 minute => $mod_minute, 279 time_zone => 'local'); 280 return $mod_datetime->epoch(); 272 return 0; 281 273 } 282 274 ## modificationTime()
Note:
See TracChangeset
for help on using the changeset viewer.