r40266 - in /branches/upstream/libconfig-augeas-perl/current: Build.PL ChangeLog META.yml lib/Config/Augeas.pm lib/Config/Augeas.xs t/Config-Augeas.t t/Config-AugeasC.t

ddumont-guest at users.alioth.debian.org ddumont-guest at users.alioth.debian.org
Mon Jul 20 11:33:50 UTC 2009


Author: ddumont-guest
Date: Mon Jul 20 11:33:45 2009
New Revision: 40266

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40266
Log:
[svn-upgrade] Integrating new upstream version, libconfig-augeas-perl (0.501)

Modified:
    branches/upstream/libconfig-augeas-perl/current/Build.PL
    branches/upstream/libconfig-augeas-perl/current/ChangeLog
    branches/upstream/libconfig-augeas-perl/current/META.yml
    branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.pm
    branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.xs
    branches/upstream/libconfig-augeas-perl/current/t/Config-Augeas.t
    branches/upstream/libconfig-augeas-perl/current/t/Config-AugeasC.t

Modified: branches/upstream/libconfig-augeas-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/Build.PL?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-augeas-perl/current/Build.PL Mon Jul 20 11:33:45 2009
@@ -1,4 +1,4 @@
-#    Copyright (c) 2008 Dominique Dumont.
+#    Copyright (c) 2008-2009 Dominique Dumont.
 #
 #    This library is free software; you can redistribute it and/or
 #    modify it under the terms of the GNU Lesser Public License as
@@ -76,7 +76,7 @@
    dist_abstract => "Edit configuration files through Augeas C library",
 
    dynamic_config       => 1,
-   extra_compiler_flags => $aug_cflags,
+   extra_compiler_flags => $aug_cflags . ' -Wall -Wformat -Werror=format-security',
    extra_linker_flags   => $aug_libs,
 
    build_requires => {

Modified: branches/upstream/libconfig-augeas-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/ChangeLog?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-augeas-perl/current/ChangeLog Mon Jul 20 11:33:45 2009
@@ -1,3 +1,11 @@
+2009-07-10  Dominique Dumont  <dominique.dumont at hp.com> v0.501
+
+	* Build.PL: modified gcc options to issue more warnings (and fixed
+	them 
+
+	* lib/Config/Augeas.xs: Fixed compiler warnings (Thanks to
+	Guillaume Rousse)
+
 2009-05-27  Dominique Dumont  <dominique.dumont at hp.com> v 0.500
 
 	* lib/Config/Augeas.pm (new): added no_load, save => noop,

Modified: branches/upstream/libconfig-augeas-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/META.yml?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/META.yml (original)
+++ branches/upstream/libconfig-augeas-perl/current/META.yml Mon Jul 20 11:33:45 2009
@@ -1,6 +1,6 @@
 ---
 name: Config-Augeas
-version: 0.500
+version: 0.501
 author:
   - Dominique Dumont (ddumont at cpan dot org)
 abstract: Edit configuration files through Augeas C library
@@ -13,7 +13,7 @@
 provides:
   Config::Augeas:
     file: lib/Config/Augeas.pm
-    version: 0.500
+    version: 0.501
 generated_by: Module::Build version 0.33
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html

Modified: branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.pm?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.pm (original)
+++ branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.pm Mon Jul 20 11:33:45 2009
@@ -22,7 +22,7 @@
 use Carp;
 use IO::File ;
 
-our $VERSION = '0.500';
+our $VERSION = '0.501';
 
 require XSLoader;
 XSLoader::load('Config::Augeas', $VERSION);

Modified: branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.xs?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.xs (original)
+++ branches/upstream/libconfig-augeas-perl/current/lib/Config/Augeas.xs Mon Jul 20 11:33:45 2009
@@ -74,13 +74,13 @@
       const char* expr
 
  # returns an array ( return value, created ) 
-int
+void
 aug_defnode(aug, name, expr, value)
       Config_Augeas* aug
       const char* name
       const char* expr
       const char* value
-    INIT:
+    PREINIT:
       int created ;
       int ret ;
     PPCODE:
@@ -152,7 +152,7 @@
 	       if (strlen(die_msg) + strlen(tmp_msg) < 1024 )
 	       	       strcat(die_msg,tmp_msg);
 	   }
-	   croak (die_msg);
+	   croak ("%s",die_msg);
         }
 
         // printf("match: Pattern %s matches %d times\n", pattern, cnt);

Modified: branches/upstream/libconfig-augeas-perl/current/t/Config-Augeas.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/t/Config-Augeas.t?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/t/Config-Augeas.t (original)
+++ branches/upstream/libconfig-augeas-perl/current/t/Config-Augeas.t Mon Jul 20 11:33:45 2009
@@ -20,10 +20,18 @@
 
 # cleanup before tests
 rmtree($aug_root);
-mkpath($aug_root.'etc/ssh/', { mode => 0755 }) ;
-copy($r_root.'etc/hosts',$aug_root.'etc/') ;
-copy($r_root.'etc/ssh/sshd_config',$aug_root.'etc/ssh/') ;
+mkpath($aug_root.'etc/ssh/', { mode => 0755 }) || die "Can't mkpath:$!";
+copy($r_root.'etc/hosts',$aug_root.'etc/') || die "Can't copy etc/hosts:$!";
+copy($r_root.'etc/ssh/sshd_config',$aug_root.'etc/ssh/')
+  || die "Can't copy etc/ssh/sshd_config:$!" ;
 
+
+# check that files were written
+foreach my $f (qw!hosts ssh/sshd_config!) {
+    my $testfile = $aug_root."etc/$f" ;
+    next if -r $testfile ;
+    die "Cannot test: file $testfile was not written";
+}
 
 my $written_file = $aug_root."etc/hosts.augnew" ;
 unlink ($written_file) if -e $written_file ;

Modified: branches/upstream/libconfig-augeas-perl/current/t/Config-AugeasC.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-augeas-perl/current/t/Config-AugeasC.t?rev=40266&op=diff
==============================================================================
--- branches/upstream/libconfig-augeas-perl/current/t/Config-AugeasC.t (original)
+++ branches/upstream/libconfig-augeas-perl/current/t/Config-AugeasC.t Mon Jul 20 11:33:45 2009
@@ -51,9 +51,16 @@
 sub cleanup {
     # cleanup before tests
     rmtree($aug_root);
-    mkpath($aug_root.'etc/ssh/', { mode => 0755 }) ;
-    copy($r_root.'etc/hosts',$aug_root.'etc/') ;
-    copy($r_root.'etc/ssh/sshd_config',$aug_root.'etc/ssh/') ;
+    mkpath($aug_root.'etc/ssh/', { mode => 0755 }) || die "Can't mkpath:$!" ;
+    copy($r_root.'etc/hosts',$aug_root.'etc/') || die "Can't copy etc/hosts:$!";
+    copy($r_root.'etc/ssh/sshd_config',$aug_root.'etc/ssh/') 
+      || die "Can't copy etc/ssh/sshd_config:$!" ;
+
+    foreach my $f (qw!hosts ssh/sshd_config!) {
+	my $testfile = $aug_root."etc/$f" ;
+	next if -r $testfile ;
+	die "Cannot test: file $testfile was not written";
+    }
 }
 
 # test augeas without backup file




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