summaryrefslogtreecommitdiff
path: root/lib/Image/ExifTool/QuickTimeStream.pl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Image/ExifTool/QuickTimeStream.pl')
-rw-r--r--lib/Image/ExifTool/QuickTimeStream.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Image/ExifTool/QuickTimeStream.pl b/lib/Image/ExifTool/QuickTimeStream.pl
index d080b7f6..a2273743 100644
--- a/lib/Image/ExifTool/QuickTimeStream.pl
+++ b/lib/Image/ExifTool/QuickTimeStream.pl
@@ -1144,13 +1144,13 @@ sub ProcessSamples($)
}
@$size < @$start + $samplesPerChunk and $et->WarnOnce('Sample size error'), last;
my $sampleStart = $chunkStart;
- for ($i=0; ; ) {
+Sample: for ($i=0; ; ) {
push @$start, $sampleStart;
if (defined $time) {
until ($timeCount) {
if (@$stts < 2) {
undef $time;
- last;
+ last Sample;
}
$timeCount = shift @$stts;
$timeDelta = shift @$stts;