r74137 - in /branches/upstream/libcompress-raw-zlib-perl/current: Changes META.yml README lib/Compress/Raw/Zlib.pm t/000prereq.t t/compress/CompTestUtils.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun May 8 14:05:40 UTC 2011
Author: gregoa
Date: Sun May 8 14:05:15 2011
New Revision: 74137
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74137
Log:
[svn-upgrade] new version libcompress-raw-zlib-perl (2.035)
Modified:
branches/upstream/libcompress-raw-zlib-perl/current/Changes
branches/upstream/libcompress-raw-zlib-perl/current/META.yml
branches/upstream/libcompress-raw-zlib-perl/current/README
branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm
branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t
branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm
Modified: branches/upstream/libcompress-raw-zlib-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/Changes?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/Changes (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/Changes Sun May 8 14:05:15 2011
@@ -1,5 +1,9 @@
CHANGES
-------
+
+ 2.035 6 May 2011
+
+ * No Changes
2.033 11 Jan 2011
* Fixed typos & spelling errors.
Modified: branches/upstream/libcompress-raw-zlib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/META.yml?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/META.yml (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/META.yml Sun May 8 14:05:15 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Compress-Raw-Zlib
-version: 2.033
+version: 2.035
abstract: ~
author: []
license: perl
Modified: branches/upstream/libcompress-raw-zlib-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/README?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/README (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/README Sun May 8 14:05:15 2011
@@ -1,9 +1,9 @@
Compress-Raw-Zlib
- Version 2.033
-
- 11th January 2011
+ Version 2.035
+
+ 6th May 2011
Copyright (c) 2005-2011 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it
@@ -355,7 +355,7 @@
If you haven't installed Compress-Raw-Zlib then search Compress::Raw::Zlib.pm
for a line like this:
- $VERSION = "2.033" ;
+ $VERSION = "2.035" ;
c. The version of zlib you have used.
If you have successfully installed Compress-Raw-Zlib, this one-liner
Modified: branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm Sun May 8 14:05:15 2011
@@ -13,7 +13,7 @@
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.033';
+$VERSION = '2.035';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t Sun May 8 14:05:15 2011
@@ -19,7 +19,7 @@
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- my $VERSION = '2.033';
+ my $VERSION = '2.035';
my @NAMES = qw(
);
Modified: branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm?rev=74137&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm Sun May 8 14:05:15 2011
@@ -24,6 +24,14 @@
{
like $@, @_ ;
}
+
+BEGIN {
+ eval {
+ require File::Temp;
+ } ;
+
+}
+
{
package LexFile ;
@@ -36,8 +44,9 @@
my $self = shift ;
foreach (@_)
{
- # autogenerate the name unless if none supplied
- $_ = "tst" . $index ++ . ".tmp"
+ Carp::croak "NO!!!!" if defined $_;
+ # autogenerate the name if none supplied
+ $_ = "tst" . $$ . "X" . $index ++ . ".tmp"
unless defined $_;
}
chmod 0777, @_;
@@ -58,19 +67,58 @@
package LexDir ;
use File::Path;
+
+ our ($index);
+ $index = '00000';
+ our ($useTempFile) = defined &File::Temp::tempdir;
+ our ($useTempDir) = defined &File::Temp::newdir;
+
sub new
{
my $self = shift ;
- foreach (@_) { rmtree $_ }
- bless [ @_ ], $self ;
+
+ if ( $useTempDir)
+ {
+ foreach (@_)
+ {
+ Carp::croak "NO!!!!" if defined $_;
+ $_ = File::Temp->newdir(DIR => '.');
+ }
+ bless [ @_ ], $self ;
+ }
+ elsif ( $useTempFile)
+ {
+ foreach (@_)
+ {
+ Carp::croak "NO!!!!" if defined $_;
+ $_ = File::Temp::tempdir(DIR => '.', CLEANUP => 1);
+ }
+ bless [ @_ ], $self ;
+ }
+ else
+ {
+ foreach (@_)
+ {
+ Carp::croak "NO!!!!" if defined $_;
+ # autogenerate the name if none supplied
+ $_ = "tmpdir" . $$ . "X" . $index ++ . ".tmp" ;
+ }
+ foreach (@_) { rmtree $_; mkdir $_, 0777 }
+ bless [ @_ ], $self ;
+ }
+
}
sub DESTROY
{
- my $self = shift ;
- foreach (@$self) { rmtree $_ }
- }
-}
+ if (! $useTempFile)
+ {
+ my $self = shift ;
+ foreach (@$self) { rmtree $_ }
+ }
+ }
+}
+
sub readFile
{
my $f = shift ;
More information about the Pkg-perl-cvs-commits
mailing list