r29052 - in /trunk/libinline-perl/debian: changelog patches/fix-pod.patch patches/local_dollar_underline.patch
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jan 1 18:40:05 UTC 2009
Author: gregoa
Date: Thu Jan 1 18:40:01 2009
New Revision: 29052
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29052
Log:
Refresh patches.
Modified:
trunk/libinline-perl/debian/changelog
trunk/libinline-perl/debian/patches/fix-pod.patch
trunk/libinline-perl/debian/patches/local_dollar_underline.patch
Modified: trunk/libinline-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libinline-perl/debian/changelog?rev=29052&op=diff
==============================================================================
--- trunk/libinline-perl/debian/changelog (original)
+++ trunk/libinline-perl/debian/changelog Thu Jan 1 18:40:01 2009
@@ -18,6 +18,7 @@
(source stanza).
* New upstream release.
+ * Refresh patches.
-- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 09 Oct 2007 22:29:50 +0200
Modified: trunk/libinline-perl/debian/patches/fix-pod.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libinline-perl/debian/patches/fix-pod.patch?rev=29052&op=diff
==============================================================================
--- trunk/libinline-perl/debian/patches/fix-pod.patch (original)
+++ trunk/libinline-perl/debian/patches/fix-pod.patch Thu Jan 1 18:40:01 2009
@@ -3,45 +3,36 @@
--- a/C/C-Cookbook.pod
+++ b/C/C-Cookbook.pod
-@@ -633,10 +633,10 @@ familiar 'arrow syntax' is used to invok
-
- In the class definition (second part) the Perl C<package> statement is
- used to name the object class or namespace. But that's where the
--similarities end Inline takes over.
-+similarities end and Inline takes over.
-
- The idea is that we call a C subroutine called C<new()> which returns a
--blessed scalar. The scalar contains a readonly integer which is a C
-+blessed scalar. The scalar is a reference to a readonly integer which is a C
- pointer to a Soldier struct. This is our object.
-
- The C<new()> function needs to malloc the memory for the struct and then
-@@ -1362,7 +1362,7 @@ and C<eval> it into Perl. How do I do th
- =item Discussion
-
- I can't think of a real life application where you would want to
--generate C code on the fly, but at least I know know how I would do it.
-+generate C code on the fly, but at least I know how I would do it.
- :)
-
- The C<bind()> function of Inline let's you bind (compile/load/execute) C
+@@ -636,10 +636,10 @@
+
+ In the class definition (second part) the Perl C<package> statement is
+ used to name the object class or namespace. But that's where the
+-similarities end Inline takes over.
++similarities end and Inline takes over.
+
+ The idea is that we call a C subroutine called C<new()> which returns a
+-blessed scalar. The scalar contains a readonly integer which is a C
++blessed scalar. The scalar is a reference to a readonly integer which is a C
+ pointer to a Soldier struct. This is our object.
+
+ The C<new()> function needs to malloc the memory for the struct and then
+@@ -1365,7 +1365,7 @@
+ =item Discussion
+
+ I can't think of a real life application where you would want to
+-generate C code on the fly, but at least I know know how I would do it.
++generate C code on the fly, but at least I know how I would do it.
+ :)
+
+ The C<bind()> function of Inline let's you bind (compile/load/execute) C
--- a/C/C.pod
+++ b/C/C.pod
-@@ -213,7 +213,7 @@ XS allows you to define your own typemap
- non-standard types such as C<typedef>-ed structs.
-
- Inline uses the default Perl typemap file for its default types. This
--file is called C</usr/local/lib/perl5/5.6.1/ExtUtils/typemap>, or
-+file is called C</usr/share/perl/5.6.1/ExtUtils/typemap>, or
- something similar, depending on your Perl installation. It has
- definitions for over 40 types, which are automatically used by Inline.
- (You should probably browse this file at least once, just to get an idea
-@@ -369,7 +369,7 @@ values. At the end it uses C<Inline_Stac
- return stack.
-
- If you really want to return nothing, then don't use the
--C<Inline_Stack_> macros. If you must use them, then set use
-+C<Inline_Stack_> macros. If you must use them, then use
- C<Inline_Stack_Void> at the end of your function.
-
- =item 3
+@@ -213,7 +213,7 @@
+ non-standard types such as C<typedef>-ed structs.
+
+ Inline uses the default Perl typemap file for its default types. This
+-file is called C</usr/local/lib/perl5/5.6.1/ExtUtils/typemap>, or
++file is called C</usr/share/perl/5.10.0/ExtUtils/typemap>, or
+ something similar, depending on your Perl installation. It has
+ definitions for over 40 types, which are automatically used by Inline.
+ (You should probably browse this file at least once, just to get an idea
Modified: trunk/libinline-perl/debian/patches/local_dollar_underline.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libinline-perl/debian/patches/local_dollar_underline.patch?rev=29052&op=diff
==============================================================================
--- trunk/libinline-perl/debian/patches/local_dollar_underline.patch (original)
+++ trunk/libinline-perl/debian/patches/local_dollar_underline.patch Thu Jan 1 18:40:01 2009
@@ -4,7 +4,7 @@
--- a/lib/Inline/denter.pm
+++ b/lib/Inline/denter.pm
-@@ -177,6 +177,7 @@ sub _undent_undef {
+@@ -177,6 +177,7 @@
}
sub _next_line {
@@ -12,7 +12,7 @@
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
$_ = shift @{$o->{lines}};
-@@ -188,6 +189,7 @@ sub _setup_line {
+@@ -188,6 +189,7 @@
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
@@ -20,7 +20,7 @@
$_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
-@@ -221,6 +223,7 @@ sub indent {
+@@ -221,6 +223,7 @@
sub indent_data {
my $o = shift;
More information about the Pkg-perl-cvs-commits
mailing list