← Back to branch summary

~ubuntu-branches/ubuntu/karmic/libimage-exiftool-perl/karmic

« back to all changes in this revision

Viewing changes to lib/Image/ExifTool/WritePostScript.pl

  • Committer: Bazaar Package Importer
  • Author(s): Mari Wang
  • Date: 2008-02-04 20:32:53 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20080204203253-mpbal8trlfe1fz5d
Tags: 7.00-1
http://bugs.debian.org/456430
http://bugs.debian.org/435589
http://bugs.debian.org/436100
* Upload of new production release (Closes: #456430)
* Added Recommends: libcompress-zlib-perl (Closes: #435589)
* Package now includes iptc2xmp.args and xmp2iptc.args, they are put
  into /usr/share/libimage-exiftool/ (Closes: #436100)
* Updated standards-version (3.7.2 -> 3.7.3). No changes needed.
* Lots of updates and bugfixes compared to last debian version
  (6.90).  See the Changes file for details
* Upload sponsored by Petter Reinholdtsen

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Image/ExifTool/WritePostScript.pl
614
614
                        } else {
615
615
                            $raf->ReadLine($data) or undef($data), last;
616
616
                            $dos and CheckPSEnd($raf, $psEnd, $data);
617
 
                            # split line if it contains other newline sequences
618
 
                            SplitLine(\$data, \@lines) if $data =~ /$altnl/;
 
617
                            if ($data =~ /[\x0d\x0a]%%EOF\b/g) {
 
618
                                # split data before "%%EOF"
 
619
                                # (necessary if data contains other newline sequences)
 
620
                                my $pos = pos($data) - 5;
 
621
                                push @lines, substr($data, $pos);
 
622
                                $data = substr($data, 0, $pos);
 
623
                            }
619
624
                        }
620
625
                        last if $data =~ /^%%EOF\b/;
621
626
                    }