r20407 - in /branches/upstream/libunix-syslog-perl/current: Changes META.yml Makefile.PL Syslog.pm Syslog.xs test.pl

[gwolf at users.alioth.debian.org]

Author: gwolf
Date: Sun May 25 19:43:59 2008
New Revision: 20407

URL: http://svn.debian.org/wsvn/?sc=1&rev=20407
Log:
[svn-upgrade] Integrating new upstream version, libunix-syslog-perl (1.1)

Modified:
    branches/upstream/libunix-syslog-perl/current/Changes
    branches/upstream/libunix-syslog-perl/current/META.yml
    branches/upstream/libunix-syslog-perl/current/Makefile.PL
    branches/upstream/libunix-syslog-perl/current/Syslog.pm
    branches/upstream/libunix-syslog-perl/current/Syslog.xs
    branches/upstream/libunix-syslog-perl/current/test.pl

Modified: branches/upstream/libunix-syslog-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/Changes?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/Changes (original)
+++ branches/upstream/libunix-syslog-perl/current/Changes Sun May 25 19:43:59 2008
@@ -1,6 +1,16 @@
 -*- mode: text -*-
 
 Revision history for Perl extension Unix::Syslog.
+1.1   Sun May 18 21:13:38 2007
+        - Released version 1.1.
+
+	- Clearly marked MSWin32 systems as unsupported. (How do
+	  64bit Windows system identify themselves?)
+
+        - Fixed bug that caused Perl to segfault when closelog() was
+	  called before openlog().
+
+
 1.0   Tue Oct 2 22:22:43 2007
         - Bumped version number to 1.0.
 

Modified: branches/upstream/libunix-syslog-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/META.yml?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/META.yml (original)
+++ branches/upstream/libunix-syslog-perl/current/META.yml Sun May 25 19:43:59 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Unix-Syslog
-version:      1.0
+version:      1.1
 version_from: Syslog.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libunix-syslog-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/Makefile.PL?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/Makefile.PL (original)
+++ branches/upstream/libunix-syslog-perl/current/Makefile.PL Sun May 25 19:43:59 2008
@@ -1,4 +1,7 @@
 use ExtUtils::MakeMaker;
+
+die 'OS unsupported' if ($^O eq 'MSWin32');
+
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 # the contents of the Makefile that is written.
 WriteMakefile(

Modified: branches/upstream/libunix-syslog-perl/current/Syslog.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/Syslog.pm?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/Syslog.pm (original)
+++ branches/upstream/libunix-syslog-perl/current/Syslog.pm Sun May 25 19:43:59 2008
@@ -1,4 +1,4 @@
-# $Id: Syslog.pm,v 1.11 2007/10/03 14:07:41 marcus Exp $
+# $Id: Syslog.pm,v 1.12 2008/05/18 19:26:54 marcus Exp $
 #
 # Copyright (c) 1999,2000,2001,2002,2007 Marcus Harnisch <marcus.harnisch at gmx.net>
 #
@@ -44,7 +44,7 @@
 		"subs"  => [qw(closelog openlog syslog setlogmask priorityname
 			       facilityname)]);
 
-$VERSION = '1.0';
+$VERSION = '1.1';
 
 bootstrap Unix::Syslog $VERSION;
 

Modified: branches/upstream/libunix-syslog-perl/current/Syslog.xs
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/Syslog.xs?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/Syslog.xs (original)
+++ branches/upstream/libunix-syslog-perl/current/Syslog.xs Sun May 25 19:43:59 2008
@@ -10,11 +10,11 @@
 
 #include <syslog.h>
 
-static SV *ident_svptr;
+static SV *ident_svptr = NULL;
 
 MODULE = Unix::Syslog	PACKAGE = Unix::Syslog
 
- # $Id: Syslog.xs,v 1.7 2007/10/03 14:07:41 marcus Exp $
+ # $Id: Syslog.xs,v 1.8 2008/05/18 13:40:47 marcus Exp $
  #
  # Copyright (c) 1999,2000,2001,2002,2007 Marcus Harnisch <marcus.harnisch at gmx.net>
  #
@@ -259,4 +259,4 @@
 closelog()
 	CODE:
 	closelog();
-	if (SvREFCNT(ident_svptr)) SvREFCNT_dec(ident_svptr);
+	if ((ident_svptr != NULL) && SvREFCNT(ident_svptr)) SvREFCNT_dec(ident_svptr);

Modified: branches/upstream/libunix-syslog-perl/current/test.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libunix-syslog-perl/current/test.pl?rev=20407&op=diff
==============================================================================
--- branches/upstream/libunix-syslog-perl/current/test.pl (original)
+++ branches/upstream/libunix-syslog-perl/current/test.pl Sun May 25 19:43:59 2008
@@ -154,6 +154,10 @@
   return $name;
 }
 
+print "Calling closelog() without preceeding openlog()  ";
+closelog;
+print "ok\n"; # if we got this far, things must have worked right.
+
 print "openlog\n";
 openlog(basename($0), LOG_PID, LOG_LOCAL7);