r59338 - in /trunk/libnet-ident-perl/debian: changelog patches/export-hooks.patch

chrisb at users.alioth.debian.org chrisb at users.alioth.debian.org
Sun Jun 13 16:03:16 UTC 2010


Author: chrisb
Date: Sun Jun 13 16:03:02 2010
New Revision: 59338

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59338
Log:
Refreshed export-hooks patch.

Modified:
    trunk/libnet-ident-perl/debian/changelog
    trunk/libnet-ident-perl/debian/patches/export-hooks.patch

Modified: trunk/libnet-ident-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ident-perl/debian/changelog?rev=59338&op=diff
==============================================================================
--- trunk/libnet-ident-perl/debian/changelog (original)
+++ trunk/libnet-ident-perl/debian/changelog Sun Jun 13 16:03:02 2010
@@ -18,6 +18,7 @@
   * Updated debian/copyright to DEP-5 format.
   * Switched to source format 3.0 (quilt), removed quilt framework.
   * Improved package description.
+  * Refreshed export-hooks patch.
 
  -- Chris Butler <chrisb at debian.org>  Sun, 13 Jun 2010 15:34:04 +0100
 

Modified: trunk/libnet-ident-perl/debian/patches/export-hooks.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ident-perl/debian/patches/export-hooks.patch?rev=59338&op=diff
==============================================================================
--- trunk/libnet-ident-perl/debian/patches/export-hooks.patch (original)
+++ trunk/libnet-ident-perl/debian/patches/export-hooks.patch Sun Jun 13 16:03:02 2010
@@ -4,17 +4,8 @@
 
 --- a/Ident.pm
 +++ b/Ident.pm
-@@ -28,7 +28,7 @@ use vars qw(@ISA @EXPORT_OK $DEBUG $VERS
- # put the export hooks in the standard Exporter structures
- _export_hooks();
- # for compatibility mode, uncomment the next line @@ s/^#\s*// @@
--# @EXPORT = qw(_export_hook_fh);
-+ at EXPORT = qw(_export_hook_fh);
- 
- $VERSION = sprintf("%d.%02d", q$Revision: 1.20 $ =~ /: (\d+)\.(\d+)/);
- 
-@@ -505,7 +505,7 @@ sub geterror ($) {
- }
+@@ -27,7 +27,7 @@
+ );
  
  # provide import magic
 -sub _export_hooks () {
@@ -22,7 +13,16 @@
      my($tag, $hook);
      while ( ($tag, $hook) = each %EXPORT_HOOKS ) {
  	my $hookname = "_export_hook_$tag"; # pseudo-function name
-@@ -683,18 +683,18 @@ of the function calls above.
+@@ -41,7 +41,7 @@
+ # put the export hooks in the standard Exporter structures
+ _export_hooks();
+ # for compatibility mode, uncomment the next line @@ s/^#\s*// @@
+-# @EXPORT = qw(_export_hook_fh);
++ at EXPORT = qw(_export_hook_fh);
+ 
+ $VERSION = "1.22";
+ 
+@@ -687,18 +687,18 @@
  # add a paragraph about compatibility mode if appropriate. The non-breaking
  # spaces are to force a new paragraph.
  # @@12 s/^#// @@




More information about the Pkg-perl-cvs-commits mailing list