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