r2667 - in /packages/libpdf-report-perl/trunk/debian/patches: 00list
50addimgscaled.dpatch
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Apr 30 20:27:08 UTC 2006
Author: gregoa-guest
Date: Sun Apr 30 20:27:07 2006
New Revision: 2667
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2667
Log:
moved patch for addImgScaled() to dpatch
Added:
packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch (with props)
Modified:
packages/libpdf-report-perl/trunk/debian/patches/00list
Modified: packages/libpdf-report-perl/trunk/debian/patches/00list
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-report-perl/trunk/debian/patches/00list?rev=2667&op=diff
==============================================================================
--- packages/libpdf-report-perl/trunk/debian/patches/00list (original)
+++ packages/libpdf-report-perl/trunk/debian/patches/00list Sun Apr 30 20:27:07 2006
@@ -2,3 +2,4 @@
20pod
30examples
40warnings
+50addimgscaled
Added: packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch?rev=2667&op=file
==============================================================================
--- packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch (added)
+++ packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch Sun Apr 30 20:27:07 2006
@@ -1,0 +1,55 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 50addimgscaled.dpatch by <gregor+debian at comodo.priv.at>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: No description.
+
+ at DPATCH@
+diff -urNad libpdf-report-perl~/Report.pm libpdf-report-perl/Report.pm
+--- libpdf-report-perl~/Report.pm 2006-04-30 22:09:30.000000000 +0200
++++ libpdf-report-perl/Report.pm 2006-04-30 22:09:30.000000000 +0200
+@@ -580,6 +580,18 @@
+ sub addImg {
+ my ( $self, $file, $x, $y ) = @_;
+
++ $self->addImgScaled($file, $x, $y, 1);
++}
++
++=item $pdf->addImgScaled($file, $x, $y, $scale);
++
++Add image $file to the current page at position ($x, $y) scaled to $scale.
++
++=cut
++
++sub addImgScaled {
++ my ( $self, $file, $x, $y, $scale ) = @_;
++
+ my %type = (jpeg => "jpeg",
+ jpg => "jpeg",
+ tif => "tiff",
+@@ -596,24 +608,7 @@
+ my $img = $self->{pdf}->$sub($file);
+ my $gfx = $self->{page}->gfx;
+
+- $gfx->image($img, $x, $y);
+-}
+-
+-=item $pdf->addImgScaled($file, $x, $y, $scale);
+-
+-Add image $file to the current page at position ($x, $y) scaled to $scale.
+-
+-=cut
+-
+-sub addImgScaled {
+- my ( $self, $file, $x, $y, $scale ) = @_;
+-
+-# my $img = $self->{pdf}->image($file);
+-# my $gfx = $self->{page}->gfx;
+-
+-# $gfx->image($img, $x, $y, $scale);
+-
+- $self->addImg($file, $x, $y);
++ $gfx->image($img, $x, $y, $scale);
+ }
+
+ =item $pdf->setGfxLineWidth($width);
Propchange: packages/libpdf-report-perl/trunk/debian/patches/50addimgscaled.dpatch
------------------------------------------------------------------------------
svn:executable = *
More information about the Pkg-perl-cvs-commits
mailing list