← 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/WritePDF.pl

  • 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/WritePDF.pl
399
399
 
400
400
    # must encrypt all values in dictionary if they came from an encrypted stream
401
401
    CryptObject($infoDict) if $$infoDict{_needCrypt};
402
 
    
 
402
 
403
403
    # must set line separator before calling WritePDFValue()
404
404
    local $/ = $capture{newline};
405
405
 
443
443
        # decide whether we want to write this tag
444
444
        # (native PDF information is always preferred, so don't check IsCreating)
445
445
        next unless $deleted or $$tagInfo{List} or not exists $$infoDict{$tagID};
446
 
        
 
446
 
447
447
        # add new values to existing ones
448
 
        my @newVals = $et->GetNewValues($nvHash);
 
448
        my @newVals = $et->GetNewValue($nvHash);
449
449
        if (@newVals) {
450
450
            push @vals, @newVals;
451
451
            ++$infoChanged;