Skip to content

Commit

Permalink
Fix an I/O wrapping problem with checking for broken file assets and …
Browse files Browse the repository at this point in the history
…storage locations.
  • Loading branch information
perlDreamer committed Apr 2, 2012
1 parent d4f63b2 commit 604887f
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions sbin/findBrokenAssets.pl
Expand Up @@ -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'));
Expand All @@ -276,9 +276,9 @@ sub progress {
print "Could not purge File Asset";
}
}
print "\n";
}
}
print "\n";
}
progress( $file_assets, $count++ ) unless $no_progress;
}
Expand Down

0 comments on commit 604887f

Please sign in to comment.