r19358 - in /branches/upstream/libapache-db-perl/current: Changes DB.pm DB.xs META.yml lib/Apache/DProf.pm lib/Apache/SmallProf.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat May  3 18:14:55 2008
New Revision: 19358

URL: http://svn.debian.org/wsvn/?sc=1&rev=19358
Log:
[svn-upgrade] Integrating new upstream version, libapache-db-perl (0.14)

Modified:
    branches/upstream/libapache-db-perl/current/Changes
    branches/upstream/libapache-db-perl/current/DB.pm
    branches/upstream/libapache-db-perl/current/DB.xs
    branches/upstream/libapache-db-perl/current/META.yml
    branches/upstream/libapache-db-perl/current/lib/Apache/DProf.pm
    branches/upstream/libapache-db-perl/current/lib/Apache/SmallProf.pm

Modified: branches/upstream/libapache-db-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/Changes?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/Changes (original)
+++ branches/upstream/libapache-db-perl/current/Changes Sat May  3 18:14:55 2008
@@ -1,3 +1,7 @@
+=item 0.14 - April 27, 2008
+
+Added patch from Niko Tyni which fixes Apache::DB for use with Perl 5.10
+
 =item 0.13 - April 17, 2006 
 
 Fixed Apache::DProf and Apache::SmallProf to work when using taint mode. 

Modified: branches/upstream/libapache-db-perl/current/DB.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/DB.pm?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/DB.pm (original)
+++ branches/upstream/libapache-db-perl/current/DB.pm Sat May  3 18:14:55 2008
@@ -20,7 +20,7 @@
 {
     no strict;
     @ISA = qw(DynaLoader);
-    $VERSION = '0.13';
+    $VERSION = '0.14';
     __PACKAGE__->bootstrap($VERSION);
 }
 

Modified: branches/upstream/libapache-db-perl/current/DB.xs
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/DB.xs?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/DB.xs (original)
+++ branches/upstream/libapache-db-perl/current/DB.xs Sat May  3 18:14:55 2008
@@ -56,4 +56,8 @@
 ApacheSIGINT(...)
 
     CODE:
+#if ((PERL_REVISION == 5) && (PERL_VERSION >= 10))
+    if (ApacheSIGINT) (*ApacheSIGINT)(SIGINT, NULL, NULL); 
+#else 
     if (ApacheSIGINT) (*ApacheSIGINT)(SIGINT);
+#endif 

Modified: branches/upstream/libapache-db-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/META.yml?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/META.yml (original)
+++ branches/upstream/libapache-db-perl/current/META.yml Sat May  3 18:14:55 2008
@@ -1,10 +1,10 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Apache-DB
-version:      0.13
+version:      0.14
 version_from: DB.pm
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30

Modified: branches/upstream/libapache-db-perl/current/lib/Apache/DProf.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/lib/Apache/DProf.pm?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/lib/Apache/DProf.pm (original)
+++ branches/upstream/libapache-db-perl/current/lib/Apache/DProf.pm Sat May  3 18:14:55 2008
@@ -177,7 +177,7 @@
 
 B<NOTE:> I<$ServerRoot/logs/dprof/> will need to be writable by the user 
 Apache is running as (i.e. nobody, apache, etc.).  If you can not write
-to $ServerRoto as this user, set $ENV{APACHE_DPROF_PATH_ABSOLUTE} to
+to $ServerRoot as this user, set $ENV{APACHE_DPROF_PATH_ABSOLUTE} to
 an absolute path of a directory this user can.
 
 =head1 AUTHOR

Modified: branches/upstream/libapache-db-perl/current/lib/Apache/SmallProf.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-db-perl/current/lib/Apache/SmallProf.pm?rev=19358&op=diff
==============================================================================
--- branches/upstream/libapache-db-perl/current/lib/Apache/SmallProf.pm (original)
+++ branches/upstream/libapache-db-perl/current/lib/Apache/SmallProf.pm Sat May  3 18:14:55 2008
@@ -27,7 +27,7 @@
     my $r = shift;
     my $dir;
     
-    if(MP2) { 
+    if (MP2) { 
         $dir = Apache2::ServerUtil::server_root(); 
     }
     else { 
@@ -42,9 +42,8 @@
 
     mkdir $dir, 0755 unless -d $dir;
 
-    unless (-d $dir) {
-	die "$dir does not exist: $!";
-    }
+    # Die if we can't make the directory 
+	die "$dir does not exist: $!" if !-d $dir; 
 
     (my $uri = $r->uri) =~ s,/,::,g;
     $uri =~ s/^:+//;