← Back to branch summary

~berthold-daum/zora/trunk

« back to all changes in this revision

Viewing changes to com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/M2TS.pm

  • Committer: bdaum
  • Date: 2015-12-26 10:21:51 UTC
  • Revision ID: berthold.daum@bdaum.de-20151226102151-44f1j5113167thb9
Version 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/M2TS.pm
270
270
{
271
271
    my ($et, $pid, $type, $pidName, $dataPt) = @_;
272
272
    # can't parse until we know the type (Program Map Table may be later in the stream)
273
 
    return -1 unless defined $type;   
 
273
    return -1 unless defined $type;
274
274
    my $verbose = $et->Options('Verbose');
275
275
    if ($verbose > 1) {
276
276
        my $out = $et->Options('TextOut');
467
467
            my $name = ($tableID{$table_id} || sprintf('Unknown (0x%x)',$table_id)) . ' Table';
468
468
            my $expectedID = $pid ? 0x02 : 0x00;
469
469
            unless ($table_id == $expectedID) {
470
 
                $verbose > 1 and printf $out "  (skipping $name)\n";
 
470
                $verbose > 1 and print $out "  (skipping $name)\n";
471
471
                delete $needPID{$pid};
472
472
                $didPID{$pid} = 1;
473
473
                next;