r16429 - in /trunk/libipc-sharelite-perl: ./ debian/ inc/ lib/ t/

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Mon Mar 3 23:00:33 UTC 2008


Author: tincho-guest
Date: Mon Mar  3 23:00:32 2008
New Revision: 16429

URL: http://svn.debian.org/wsvn/?sc=1&rev=16429
Log:
* New upstream version.
* Bumbed debhelper version to 5.
* debian/control: added myself to Uploaders, bumped Standards-Version (no
  changes), added libtest-pod-perl to B-D to enable POD tests.
* debian/copyright: updated CP info, new format.
* debian/watch: make it accept v-style versions.
* debian/rules: remade from templates.

Added:
    trunk/libipc-sharelite-perl/META.yml
      - copied unchanged from r16428, branches/upstream/libipc-sharelite-perl/current/META.yml
    trunk/libipc-sharelite-perl/SIGNATURE
      - copied unchanged from r16428, branches/upstream/libipc-sharelite-perl/current/SIGNATURE
    trunk/libipc-sharelite-perl/inc/
      - copied from r16428, branches/upstream/libipc-sharelite-perl/current/inc/
    trunk/libipc-sharelite-perl/lib/
      - copied from r16428, branches/upstream/libipc-sharelite-perl/current/lib/
    trunk/libipc-sharelite-perl/sharestuff.c
      - copied unchanged from r16428, branches/upstream/libipc-sharelite-perl/current/sharestuff.c
    trunk/libipc-sharelite-perl/sharestuff.h
      - copied unchanged from r16428, branches/upstream/libipc-sharelite-perl/current/sharestuff.h
    trunk/libipc-sharelite-perl/t/
      - copied from r16428, branches/upstream/libipc-sharelite-perl/current/t/
Removed:
    trunk/libipc-sharelite-perl/Configure
    trunk/libipc-sharelite-perl/MANIFEST.SKIP
    trunk/libipc-sharelite-perl/ShareLite.pm
    trunk/libipc-sharelite-perl/TODO
    trunk/libipc-sharelite-perl/config_h.SH
    trunk/libipc-sharelite-perl/sharelite.c
    trunk/libipc-sharelite-perl/sharelite.h
    trunk/libipc-sharelite-perl/test.pl
Modified:
    trunk/libipc-sharelite-perl/Changes
    trunk/libipc-sharelite-perl/MANIFEST
    trunk/libipc-sharelite-perl/Makefile.PL
    trunk/libipc-sharelite-perl/ShareLite.xs
    trunk/libipc-sharelite-perl/debian/changelog
    trunk/libipc-sharelite-perl/debian/compat
    trunk/libipc-sharelite-perl/debian/control
    trunk/libipc-sharelite-perl/debian/copyright
    trunk/libipc-sharelite-perl/debian/rules
    trunk/libipc-sharelite-perl/debian/watch
    trunk/libipc-sharelite-perl/typemap

Modified: trunk/libipc-sharelite-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/Changes?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/Changes (original)
+++ trunk/libipc-sharelite-perl/Changes Mon Mar  3 23:00:32 2008
@@ -1,4 +1,17 @@
 Revision history for Perl extension IPC::ShareLite.
+
+0.12 2008-02-25
+    - Use Devel::CheckLib to verify that we have a C compiler.
+
+0.11 2008-02-25
+    - Removed POD coverage test. Dynamic constants make it flaky.
+    
+0.10 2008-02-24
+    - Use Perl's malloc wrappers
+    - moved test into t/sharelite.t
+    - made test use Test::More
+    - removed Configure mechanism
+    - assorted minor tidying
 
 0.09 Wed Dec  4 13:51:05 PST 2002
         - fixed bug in size() thanks to Craig Manley <c.manley at skybound.nl>

Modified: trunk/libipc-sharelite-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/MANIFEST?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/MANIFEST (original)
+++ trunk/libipc-sharelite-perl/MANIFEST Mon Mar  3 23:00:32 2008
@@ -1,14 +1,16 @@
 Changes
+inc/Devel/CheckLib.pm
+inc/IO/CaptureOutput.pm
+lib/IPC/ShareLite.pm
+Makefile.PL
 MANIFEST
-MANIFEST.SKIP
 README
-Configure
-config_h.SH
-Makefile.PL
-ShareLite.pm
 ShareLite.xs
-sharelite.h
-sharelite.c
+sharestuff.c
+sharestuff.h
+t/00-load.t
+t/pod.t
+t/sharelite.t
 typemap
-test.pl
-TODO
+META.yml                                 Module meta-data (added by MakeMaker)
+SIGNATURE                                Public-key signature (added by MakeMaker)

Modified: trunk/libipc-sharelite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/Makefile.PL?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/Makefile.PL (original)
+++ trunk/libipc-sharelite-perl/Makefile.PL Mon Mar  3 23:00:32 2008
@@ -1,17 +1,47 @@
+use 5.006001;
+
+use strict;
+
+use lib qw(inc);
+use Config;
+use Devel::CheckLib;
 use ExtUtils::MakeMaker;
 
-system('./Configure');
+if ( $^O =~ /^(MS)?Win32$/ ) {
+    warn "IPC::ShareLite doesn't work on Windows.\nStopping.\n";
+    exit 0;    # == NA test result
+}
 
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
-    'NAME'	=> 'IPC::ShareLite',
-    'VERSION_FROM' => 'ShareLite.pm', # finds $VERSION
-    'LIBS'	=> [''],   # e.g., '-lm' 
-    'DEFINE'	=> '',     # e.g., '-DHAVE_SOMETHING' 
-    'INC'	=> '',     # e.g., '-I/usr/include/other' 
-    'OBJECT'    => 'sharelite.o ShareLite.o',
-    'dist'      => {
-        COMPRESS => 'gzip', SUFFIX => 'gz',
-    },          
+if ( $^O =~ /^VMS$/ ) {
+    warn "IPC::ShareLite doesn't work on VMS.\nStopping.\n";
+    exit 0;    # == NA test result
+}
+
+# Check that we have a C compiler
+check_lib_or_exit();
+
+my %mm_args = (
+    ( MM->can( 'signature_target' ) ? ( SIGN => 1 ) : () ),
+    NAME          => 'IPC::ShareLite',
+    AUTHOR        => 'Maurice Aubrey <maurice at cpan.org>',
+    VERSION_FROM  => 'lib/IPC/ShareLite.pm',
+    ABSTRACT_FROM => 'lib/IPC/ShareLite.pm',
+    PL_FILES      => {},
+    PREREQ_PM     => { 'Test::More' => 0, },
+    LIBS          => [''],
+    DEFINE        => '',
+    INC           => '',
+    OBJECT        => 'sharestuff.o ShareLite.o',
+    dist          => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+    clean => { FILES => 'IPC-ShareLite-*' },
 );
+
+{
+    local $^W = 0;    # Silence warning about non-numeric version
+    if ( $ExtUtils::MakeMaker::VERSION >= '6.31' ) {
+        $mm_args{LICENSE} = 'perl';
+    }
+}
+
+WriteMakefile( %mm_args );
+

Modified: trunk/libipc-sharelite-perl/ShareLite.xs
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/ShareLite.xs?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/ShareLite.xs (original)
+++ trunk/libipc-sharelite-perl/ShareLite.xs Mon Mar  3 23:00:32 2008
@@ -7,361 +7,334 @@
 #ifdef __cplusplus
 }
 #endif
-
 #include <sys/shm.h>
 #include <sys/sem.h>
-#include <sys/ipc.h> 
-#include "sharelite.h"
-
+#include <sys/ipc.h>
+#include "sharestuff.h"
 /*
  * Some perl version compatibility stuff.
  * Taken from HTML::Parser
  */
 #include "patchlevel.h"
-#if PATCHLEVEL <= 4 /* perl5.004_XX */
-
+#if PATCHLEVEL <= 4             /* perl5.004_XX */
 #ifndef PL_sv_undef
-   #define PL_sv_undef sv_undef
-   #define PL_sv_yes   sv_yes
-#endif
-
+#define PL_sv_undef sv_undef
+#define PL_sv_yes   sv_yes
+#endif
 #ifndef PL_hexdigit
-   #define PL_hexdigit hexdigit
-#endif
-                                                              
+#define PL_hexdigit hexdigit
+#endif
 #if (PATCHLEVEL == 4 && SUBVERSION <= 4)
-/* The newSVpvn function was introduced in perl5.004_05 */
-static SV *
-newSVpvn(char *s, STRLEN len)
-{
-    register SV *sv = newSV(0);
-    sv_setpvn(sv,s,len);
+/* The newSVpvn function was introduced in perl5.004_05 */ static SV *
+newSVpvn( char *s, STRLEN len ) {
+    register SV *sv = newSV( 0 );
+    sv_setpvn( sv, s, len );
     return sv;
 }
-#endif /* not perl5.004_05 */
-#endif /* perl5.004_XX */            
-
-static int
-not_here(s)
-char *s;
-{
-    croak("%s not implemented on this architecture", s);
-    return -1;
+#endif                          /* not perl5.004_05 */
+#endif                          /* perl5.004_XX */
+
+static double
+constant( char *name, int arg ) {
+    errno = 0;
+    switch ( *name ) {
+    case 'A':
+        break;
+    case 'B':
+        break;
+    case 'C':
+        break;
+    case 'D':
+        break;
+    case 'E':
+        break;
+    case 'F':
+        break;
+    case 'G':
+        if ( strEQ( name, "GETALL" ) )
+#ifdef GETALL
+            return GETALL;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "GETNCNT" ) )
+#ifdef GETNCNT
+            return GETNCNT;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "GETPID" ) )
+#ifdef GETPID
+            return GETPID;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "GETVAL" ) )
+#ifdef GETVAL
+            return GETVAL;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "GETZCNT" ) )
+#ifdef GETZCNT
+            return GETZCNT;
+#else
+            goto not_there;
+#endif
+        break;
+    case 'H':
+        break;
+    case 'I':
+        if ( strEQ( name, "IPC_ALLOC" ) )
+#ifdef IPC_ALLOC
+            return IPC_ALLOC;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_CREAT" ) )
+#ifdef IPC_CREAT
+            return IPC_CREAT;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_EXCL" ) )
+#ifdef IPC_EXCL
+            return IPC_EXCL;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_NOWAIT" ) )
+#ifdef IPC_NOWAIT
+            return IPC_NOWAIT;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_O_RMID" ) )
+#ifdef IPC_O_RMID
+            return IPC_O_RMID;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_O_SET" ) )
+#ifdef IPC_O_SET
+            return IPC_O_SET;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_O_STAT" ) )
+#ifdef IPC_O_STAT
+            return IPC_O_STAT;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_PRIVATE" ) )
+#ifdef IPC_PRIVATE
+            return IPC_PRIVATE;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_RMID" ) )
+#ifdef IPC_RMID
+            return IPC_RMID;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_SET" ) )
+#ifdef IPC_SET
+            return IPC_SET;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "IPC_STAT" ) )
+#ifdef IPC_STAT
+            return IPC_STAT;
+#else
+            goto not_there;
+#endif
+        break;
+    case 'J':
+        break;
+    case 'K':
+        break;
+    case 'L':
+        if ( strEQ( name, "LOCK_EX" ) )
+#ifdef LOCK_EX
+            return LOCK_EX;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "LOCK_SH" ) )
+#ifdef LOCK_SH
+            return LOCK_SH;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "LOCK_NB" ) )
+#ifdef LOCK_NB
+            return LOCK_NB;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "LOCK_UN" ) )
+#ifdef LOCK_UN
+            return LOCK_UN;
+#else
+            goto not_there;
+#endif
+        break;
+    case 'M':
+        break;
+    case 'N':
+        break;
+    case 'O':
+        break;
+    case 'P':
+        break;
+    case 'Q':
+        break;
+    case 'R':
+        break;
+    case 'S':
+        if ( strEQ( name, "SEM_A" ) )
+#ifdef SEM_A
+            return SEM_A;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SEM_R" ) )
+#ifdef SEM_R
+            return SEM_R;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SEM_UNDO" ) )
+#ifdef SEM_UNDO
+            return SEM_UNDO;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SETALL" ) )
+#ifdef SETALL
+            return SETALL;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SETVAL" ) )
+#ifdef SETVAL
+            return SETVAL;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_LOCK" ) )
+#ifdef SHM_LOCK
+            return SHM_LOCK;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_R" ) )
+#ifdef SHM_R
+            return SHM_R;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_RDONLY" ) )
+#ifdef SHM_RDONLY
+            return SHM_RDONLY;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_RND" ) )
+#ifdef SHM_RND
+            return SHM_RND;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_SHARE_MMU" ) )
+#ifdef SHM_SHARE_MMU
+            return SHM_SHARE_MMU;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_UNLOCK" ) )
+#ifdef SHM_UNLOCK
+            return SHM_UNLOCK;
+#else
+            goto not_there;
+#endif
+        if ( strEQ( name, "SHM_W" ) )
+#ifdef SHM_W
+            return SHM_W;
+#else
+            goto not_there;
+#endif
+        break;
+    case 'T':
+        break;
+    case 'U':
+        break;
+    case 'V':
+        break;
+    case 'W':
+        break;
+    case 'X':
+        break;
+    case 'Y':
+        break;
+    case 'Z':
+        break;
+    }
+    errno = EINVAL;
+    return 0;
+
+  not_there:
+    errno = ENOENT;
+    return 0;
 }
 
-static double
-constant(name, arg)
-     char *name;
-     int arg;
-{
-  errno = 0;
-  switch (*name) {
-  case 'A':
-    break;
-  case 'B':
-    break;
-  case 'C':
-    break;
-  case 'D':
-    break;
-  case 'E':
-    break;
-  case 'F':
-    break;
-  case 'G':
-    if (strEQ(name, "GETALL"))
-#ifdef GETALL
-      return GETALL;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "GETNCNT"))
-#ifdef GETNCNT
-      return GETNCNT;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "GETPID"))
-#ifdef GETPID
-      return GETPID;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "GETVAL"))
-#ifdef GETVAL
-      return GETVAL;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "GETZCNT"))
-#ifdef GETZCNT
-      return GETZCNT;
-#else
-    goto not_there;
-#endif
-    break;
-  case 'H':
-    break;
-  case 'I':
-    if (strEQ(name, "IPC_ALLOC"))
-#ifdef IPC_ALLOC
-      return IPC_ALLOC;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_CREAT"))
-#ifdef IPC_CREAT
-      return IPC_CREAT;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_EXCL"))
-#ifdef IPC_EXCL
-      return IPC_EXCL;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_NOWAIT"))
-#ifdef IPC_NOWAIT
-      return IPC_NOWAIT;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_O_RMID"))
-#ifdef IPC_O_RMID
-      return IPC_O_RMID;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_O_SET"))
-#ifdef IPC_O_SET
-      return IPC_O_SET;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_O_STAT"))
-#ifdef IPC_O_STAT
-      return IPC_O_STAT;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_PRIVATE"))
-#ifdef IPC_PRIVATE
-      return IPC_PRIVATE;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_RMID"))
-#ifdef IPC_RMID
-      return IPC_RMID;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_SET"))
-#ifdef IPC_SET
-      return IPC_SET;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "IPC_STAT"))
-#ifdef IPC_STAT
-      return IPC_STAT;
-#else
-    goto not_there;
-#endif
-    break;
-  case 'J':
-    break;
-  case 'K':
-    break;
-  case 'L':
-    if (strEQ(name, "LOCK_EX"))
-#ifdef LOCK_EX 
-      return LOCK_EX;
-#else
-    goto not_there;
-#endif              
-    if (strEQ(name, "LOCK_SH"))
-#ifdef LOCK_SH 
-      return LOCK_SH;
-#else
-    goto not_there;
-#endif        
-    if (strEQ(name, "LOCK_NB"))
-#ifdef LOCK_NB
-      return LOCK_NB;
-#else
-    goto not_there;
-#endif             
-    if (strEQ(name, "LOCK_UN"))
-#ifdef LOCK_UN
-      return LOCK_UN;
-#else
-    goto not_there;
-#endif                      
-    break;
-  case 'M':
-    break;
-  case 'N':
-    break;
-  case 'O':
-    break;
-  case 'P':
-    break;
-  case 'Q':
-    break;
-  case 'R':
-    break;
-  case 'S':
-    if (strEQ(name, "SEM_A"))
-#ifdef SEM_A
-      return SEM_A;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SEM_R"))
-#ifdef SEM_R
-      return SEM_R;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SEM_UNDO"))
-#ifdef SEM_UNDO
-      return SEM_UNDO;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SETALL"))
-#ifdef SETALL
-      return SETALL;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SETVAL"))
-#ifdef SETVAL
-      return SETVAL;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_LOCK"))
-#ifdef SHM_LOCK
-      return SHM_LOCK;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_R"))
-#ifdef SHM_R
-      return SHM_R;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_RDONLY"))
-#ifdef SHM_RDONLY
-      return SHM_RDONLY;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_RND"))
-#ifdef SHM_RND
-      return SHM_RND;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_SHARE_MMU"))
-#ifdef SHM_SHARE_MMU
-      return SHM_SHARE_MMU;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_UNLOCK"))
-#ifdef SHM_UNLOCK
-      return SHM_UNLOCK;
-#else
-    goto not_there;
-#endif
-    if (strEQ(name, "SHM_W"))
-#ifdef SHM_W
-      return SHM_W;
-#else
-    goto not_there;
-#endif
-    break;
-  case 'T':
-    break;
-  case 'U':
-    break;
-  case 'V':
-    break;
-  case 'W':
-    break;
-  case 'X':
-    break;
-  case 'Y':
-    break;
-  case 'Z':
-    break;
-  }
-  errno = EINVAL;
-  return 0;
-  
- not_there:
-  errno = ENOENT;
-  return 0;
-}
-
-MODULE = IPC::ShareLite	PACKAGE = IPC::ShareLite
+/* *INDENT-OFF* */
+
+MODULE = IPC::ShareLite PACKAGE = IPC::ShareLite
+
+PROTOTYPES: DISABLE
 
 double
-constant(name,arg)
-	char *		name
-	int		arg
+constant( char *name, int arg)
 
 Share*
-new_share(key, segment_size, flags)
-	key_t		key
-	int		segment_size
-	int		flags
-
-int
-write_share(share, data, length)
-	Share*		share
-	char*		data
-        int             length
+new_share(key_t key, int segment_size, int flags)
+
+int
+write_share(Share *share, char *data, int length)
 
 char* 
-read_share(share)
-    Share*   share
+read_share(Share *share)
   PREINIT:
     char*    data; 
     int      length;
   CODE:
-    share  = (Share *)SvIV(ST(0));
     length = read_share(share, &data);
     ST(0) = sv_newmortal();
     if (length >= 0) {
-      sv_usepvn((SV*)ST(0), data, length);
+#ifdef sv_usepvn_flags
+        sv_usepvn_flags((SV*)ST(0), data, length, SV_HAS_TRAILING_NUL);
+#else
+        sv_usepvn((SV*)ST(0), data, length);
+#endif
     } else {
-      sv_setsv(ST(0), &PL_sv_undef);
+        sv_setsv(ST(0), &PL_sv_undef);
     }
  
 int
-destroy_share(share, rmid)
-	Share*		share
-	int		rmid
-
-int
-sharelite_lock(share, flags)
-	Share*		share
-	int		flags
-
-int
-sharelite_unlock(share)
-	Share*		share
+destroy_share(Share *share, int rmid)
+
+int
+sharelite_lock(Share *share, int flags)
+
+int
+sharelite_unlock(Share *share)
 
 unsigned int
-sharelite_version(share)
-	Share*		share
-
-int
-sharelite_num_segments(share)
-	Share*		share
+sharelite_version(Share *share)
+
+int
+sharelite_num_segments(Share *share)

Modified: trunk/libipc-sharelite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/changelog?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/changelog (original)
+++ trunk/libipc-sharelite-perl/debian/changelog Mon Mar  3 23:00:32 2008
@@ -1,4 +1,4 @@
-libipc-sharelite-perl (0.09-4) UNRELEASED; urgency=low
+libipc-sharelite-perl (0.12-1) unstable; urgency=low
 
   [ gregor herrmann ]
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -9,8 +9,15 @@
 
   [ Martín Ferrari ]
   * Moving source changes to a proper patch file.
+  * New upstream version.
+  * Bumbed debhelper version to 5.
+  * debian/control: added myself to Uploaders, bumped Standards-Version (no
+    changes), added libtest-pod-perl to B-D to enable POD tests.
+  * debian/copyright: updated CP info, new format.
+  * debian/watch: make it accept v-style versions.
+  * debian/rules: remade from templates.
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 01 Dec 2007 18:55:00 +0100
+ -- Martín Ferrari <martin.ferrari at gmail.com>  Mon, 03 Mar 2008 20:57:39 -0200
 
 libipc-sharelite-perl (0.09-3) unstable; urgency=low
 

Modified: trunk/libipc-sharelite-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/compat?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/compat (original)
+++ trunk/libipc-sharelite-perl/debian/compat Mon Mar  3 23:00:32 2008
@@ -1,1 +1,1 @@
-4
+5

Modified: trunk/libipc-sharelite-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/control?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/control (original)
+++ trunk/libipc-sharelite-perl/debian/control Mon Mar  3 23:00:32 2008
@@ -1,20 +1,21 @@
 Source: libipc-sharelite-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jay Bonci <jaybonci at debian.org>
+Uploaders: Jay Bonci <jaybonci at debian.org>,
+ Martín Ferrari <martin.ferrari at gmail.com>
 Section: perl
 Priority: optional
-Standards-Version: 3.6.1.0
+Standards-Version: 3.7.3
 Homepage: http://search.cpan.org/dist/IPC-ShareLite/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libipc-sharelite-perl/
 Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-sharelite-perl/
-Build-Depends: perl (>= 5.8.0-7), debhelper (>= 4.0)
+Build-Depends: perl (>= 5.8.0-7), debhelper (>= 5), libtest-pod-perl
 
 Package: libipc-sharelite-perl
 Architecture: any
 Depends: ${perl:Depends}, ${shlibs:Depends}
 Description: Perl module that provides a simple interface to shared memory 
  IPC::ShareLite provides a simple interface to shared memory, allowing
- data to be efficiently communicated between processes.  Your operating
+ data to be efficiently communicated between processes. Your operating
  system must support SysV IPC (shared memory and semaphores) in order to
  use this module.   
 

Modified: trunk/libipc-sharelite-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/copyright?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/copyright (original)
+++ trunk/libipc-sharelite-perl/debian/copyright Mon Mar  3 23:00:32 2008
@@ -1,39 +1,45 @@
-This is Debian GNU/Linux's prepackaged IPC::ShareLite.
-IPC::ShareLite provides a simple interface to shared memory, allowing
-data to be efficiently communicated between processes.  Your operating
-system must support SysV IPC (shared memory and semaphores) in order to
-use this module.   
+This package was put together by Christopher C. Chimelis <chris at debian.org>. 
+It was downloaded from http://search.cpan.org/dist/IPC-ShareLite/.
 
+Upstream author: Maurice Aubrey <maurice at hevanet.com>.
 
-This package was put together by Christopher C. Chimelis
-<chris at debian.org>.  The original sources should always be available
-from the Comprehensive Perl Archive Network (CPAN). Visit
-<URL:http://www.perl.com/CPAN/> to find a CPAN site near you.
+Files: *
+Copyright: © 1998-2002 Maurice Aubrey <maurice at hevanet.com>
+License: GPL-1+ | Artistic
+ Copyright 1998-2002, Maurice Aubrey <maurice at hevanet.com>. 
+ All rights reserved.
+ This release by Andy Armstrong <andy at hexten.net>.
+ .
+ This module is free software; you may redistribute it and/or
+ modify it under the same terms as Perl itself. 
 
-The only change for the Debian package was the addition of the debian/
-files.
+Files: inc/Devel/CheckLib.pm
+Copyright: © 2007 David Cantrell.
+           © 2007 David Golden.
+License: GPL-1+ | Artistic
+ Copyright 2007 David Cantrell. Portions copyright 2007 David Golden.
+ .
+ This module is free-as-in-speech software, and may be used, distributed,
+ and modified under the same conditions as perl itself.
 
-The IPC::ShareLite copyright is explicitely stated below.  The phrase
-'under the same terms as Perl itself' refers to the Perl license, which is
-located on your system at /usr/share/doc/perl/copyright.
+Files: inc/IO/CaptureOutput.pm
+Copyright: © 2004, 2005 Simon Flack.
+           © 2007 David Golden.
+ Portions copyright 2004, 2005 Simon Flack.  Portions copyright 2007 David
+ Golden.  All rights reserved.
+ .
+ You may distribute under the terms of either the GNU General Public License or
+ the Artistic License, as specified in the Perl README file.
 
-The IPC::ShareLite copyright is as follows:
+Files: debian/*
+Copyright: © 2008 Debian Perl Group
+                  <pkg-perl-maintainers at lists.alioth.debian.org>
+           © 2004 Jay Bonci <jaybonci at debian.org>
+           © 2000-2002 Christopher C. Chimelis <chris at debian.org>
+License: other
+ It is assumed that the previous maintainers did choose a license compatible
+ with the software.
 
-  Copyright (C) 1998, Maurice Aubrey <maurice at hevanet.com>. 
-  All rights reserved.
-
-	This program is free software; you can redistribute it and/or modify
-	it under the terms of either:
-
-	a) the GNU General Public License as published by the Free
-	Software Foundation; either version 1, or (at your option) any
-	later version, or
-
-	b) the "Artistic License"
-
-	See:
-
-	/usr/share/common-licenses/Artistic
-	/usr/share/common-licenses/GPL
-
-	For more information regarding these licensing options
+The complete text of the Artistic and GPL licenses can be found on Debian
+systems in /usr/share/common-licenses/Artistic and
+/usr/share/common-licenses/GPL.

Modified: trunk/libipc-sharelite-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/rules?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/rules (original)
+++ trunk/libipc-sharelite-perl/debian/rules Mon Mar  3 23:00:32 2008
@@ -1,53 +1,71 @@
 #!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
 
 # Uncomment this to turn on verbose mode.
 #export DH_VERBOSE=1
 
-# This is the debhelper compatibility version to use.
-# export DH_COMPAT=4
+# If set to a true value then MakeMaker's prompt function will
+# always return the default without waiting for user input.
+export PERL_MM_USE_DEFAULT=1
 
-PACKAGE=`pwd | sed -e "s/.*\/\\(.*\\)-.*/\\1/"`
+PACKAGE = $(shell dh_listpackages)
+PERL   ?= /usr/bin/perl
 
+TMP     = $(CURDIR)/debian/$(PACKAGE)
 
-build:
+# Allow disabling build optimation by setting noopt in
+# $DEB_BUILD_OPTIONS
+CFLAGS = -Wall -g
+ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
+        CFLAGS += -O0
+else
+        CFLAGS += -O2
+endif
+
+build: build-stamp
+build-stamp:
 	dh_testdir
-	# Add here commands to compile the package.
-	perl Makefile.PL verbose INSTALLDIRS=vendor
+	$(PERL) Makefile.PL INSTALLDIRS=vendor
+	$(MAKE) OPTIMIZE="$(CFLAGS)" LD_RUN_PATH=""
+	$(MAKE) test
+	touch $@
+
 clean:
 	dh_testdir
 	dh_testroot
+	dh_clean build-stamp install-stamp
+	[ ! -f Makefile ] || $(MAKE) realclean
 
-	-$(MAKE) clean
-	rm -f Makefile.old
-	dh_clean
-
-install:
+install: install-stamp
+install-stamp: build-stamp
 	dh_testdir
 	dh_testroot
 	dh_clean -k
-	dh_installdirs
+	$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
+	[ ! -d $(TMP)/usr/share/perl5 ] || \
+		rmdir --ignore-fail-on-non-empty --parents --verbose \
+		$(TMP)/usr/share/perl5
+	touch $@
 
-	$(MAKE) PREFIX=$(CURDIR)/debian/$(PACKAGE)/usr OPTIMIZE="-O2 -g -Wall" test install
-	[ ! -d $(CURDIR)/debian/$(shell dh_listpackages)/usr/share/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(CURDIR)/debian/$(shell dh_listpackages)/usr/share/perl5
+binary-indep: build install
+# We have nothing to do here for an architecture-dependent package
 
-binary-indep:;
 binary-arch: build install
 	dh_testdir
 	dh_testroot
 	dh_installdocs
-	dh_installman
 	dh_installchangelogs Changes
-	dh_link
+	dh_shlibdeps
 	dh_strip
+	dh_perl
 	dh_compress
 	dh_fixperms
 	dh_installdeb
-	dh_perl
 	dh_gencontrol
 	dh_md5sums
 	dh_builddeb
 
+source diff:
+	@echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+
 binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure
+.PHONY: build clean binary-indep binary-arch binary

Modified: trunk/libipc-sharelite-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/debian/watch?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/debian/watch (original)
+++ trunk/libipc-sharelite-perl/debian/watch Mon Mar  3 23:00:32 2008
@@ -1,2 +1,3 @@
 version=3
-http://search.cpan.org/dist/IPC-ShareLite/ .*/IPC-ShareLite-([[:digit:]].*)\.tar\.gz
+http://search.cpan.org/dist/IPC-ShareLite/ \
+	.*/IPC-ShareLite-v?(\d.*)\.tar\.gz

Modified: trunk/libipc-sharelite-perl/typemap
URL: http://svn.debian.org/wsvn/trunk/libipc-sharelite-perl/typemap?rev=16429&op=diff
==============================================================================
--- trunk/libipc-sharelite-perl/typemap (original)
+++ trunk/libipc-sharelite-perl/typemap Mon Mar  3 23:00:32 2008
@@ -1,14 +1,10 @@
 TYPEMAP
-Share*		SHARE
+Share*         T_PTROBJ
 key_t		KEY
 
 INPUT
-SHARE
-		$var = (Share *)SvIV($arg);
 KEY	
 		$var = (key_t) SvIV($arg);	
 
 OUTPUT
-SHARE
-		sv_setiv($arg, (I32) $var);
 	




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