Skip to content
Permalink
Browse files

Fix an I/O wrapping problem with checking for broken file assets and …

…storage locations.
  • Loading branch information...
perlDreamer committed Apr 2, 2012
1 parent d4f63b2 commit 604887ff66074146b01f1e66ad95e600173102b5
Showing with 3 additions and 3 deletions.
  1. +3 −3 sbin/findBrokenAssets.pl
@@ -253,15 +253,15 @@ sub progress {
my $file_asset = eval { $get_asset->() };
if ( $@ || Exception::Class->caught() ) {
##Do nothing, since it would have been caught above
printf "\r%-68s", "No asset to check";
printf "\r%-68s\n", "No asset to check";
}
elsif (!$file_asset) {
last FILE_ASSET
}
else {
my $storage = $file_asset->getStorageLocation;
if (! $storage) {
printf "\r%-s", "-- No storage location: ".$file_asset->getId." storageId: ".$file_asset->get('storageId');
printf "\r%-s\n", "-- No storage location: ".$file_asset->getId." storageId: ".$file_asset->get('storageId');
}
else {
my $file = $storage->getPath($file_asset->get('filename'));
@@ -276,9 +276,9 @@ sub progress {
print "Could not purge File Asset";
}
}
print "\n";
}
}
print "\n";
}
progress( $file_assets, $count++ ) unless $no_progress;
}

0 comments on commit 604887f

Please sign in to comment.
You can’t perform that action at this time.