r53928 - in /trunk/libarch-perl: ./ debian/ debian/source/ perllib/ perllib/Arch/ rpm/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Mar 7 23:54:04 UTC 2010
Author: jawnsy-guest
Date: Sun Mar 7 23:53:57 2010
New Revision: 53928
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53928
Log:
Use new 3.0 (quilt) source format
Added:
trunk/libarch-perl/debian/source/
trunk/libarch-perl/debian/source/format
Removed:
trunk/libarch-perl/.arch-inventory
Modified:
trunk/libarch-perl/MANIFEST
trunk/libarch-perl/NEWS
trunk/libarch-perl/README
trunk/libarch-perl/debian/changelog
trunk/libarch-perl/debian/control
trunk/libarch-perl/perllib/Arch.pm
trunk/libarch-perl/perllib/Arch/Backend.pm
trunk/libarch-perl/perllib/Arch/Changes.pm
trunk/libarch-perl/perllib/Arch/Changeset.pm
trunk/libarch-perl/perllib/Arch/FileHighlighter.pm
trunk/libarch-perl/perllib/Arch/Inventory.pm
trunk/libarch-perl/perllib/Arch/Session.pm
trunk/libarch-perl/perllib/Arch/Tree.pm
trunk/libarch-perl/rpm/Makefile
Modified: trunk/libarch-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/MANIFEST?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/MANIFEST (original)
+++ trunk/libarch-perl/MANIFEST Sun Mar 7 23:53:57 2010
@@ -38,6 +38,9 @@
rpm/Makefile
samples/arch-run-demo-1
samples/arch-run-demo-2
+tests/_all-1
+tests/_all-2
+tests/_all-3
tests/backend-1
tests/changes-1
tests/diffparser-1
@@ -68,3 +71,4 @@
tests/util-1
tests/util-2
tests/util-3
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libarch-perl/NEWS
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/NEWS?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/NEWS (original)
+++ trunk/libarch-perl/NEWS Sun Mar 7 23:53:57 2010
@@ -1,6 +1,3 @@
-arch-perl-0.5.2 (not released yet)
-
-
arch-perl-0.5.1 (08-Oct-2005)
* Added detection of Arch Cache in Arch::Backend.
Modified: trunk/libarch-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/README?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/README (original)
+++ trunk/libarch-perl/README Sun Mar 7 23:53:57 2010
@@ -1,4 +1,4 @@
-Welcome to Arch-Perl 0.5.2.
+Welcome to Arch-Perl 0.5.1.
The arch-perl project aims to create Perl library for GNU Arch.
Modified: trunk/libarch-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/debian/changelog?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/debian/changelog (original)
+++ trunk/libarch-perl/debian/changelog Sun Mar 7 23:53:57 2010
@@ -7,6 +7,7 @@
* Install example files from samples/*
* Use new short debhelper rules format
* Update copyright to new DEP5 format
+ * Use new 3.0 (quilt) source format
[ gregor herrmann ]
* debian/watch: use CPAN, add dversionmangle.
Modified: trunk/libarch-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/debian/control?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/debian/control (original)
+++ trunk/libarch-perl/debian/control Sun Mar 7 23:53:57 2010
@@ -12,7 +12,7 @@
Package: libarch-perl
Architecture: all
-Depends: tla
+Depends: ${misc:Depends}, ${perl:Depends}, tla
Description: high-level interface to GNU Arch
Arch is a Perl module that provides a pragmatic high-level interface around
tla or baz. It can be used to design and create new object-oriented frontends
Added: trunk/libarch-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/debian/source/format?rev=53928&op=file
==============================================================================
--- trunk/libarch-perl/debian/source/format (added)
+++ trunk/libarch-perl/debian/source/format Sun Mar 7 23:53:57 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libarch-perl/perllib/Arch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch.pm (original)
+++ trunk/libarch-perl/perllib/Arch.pm Sun Mar 7 23:53:57 2010
@@ -21,7 +21,7 @@
use vars qw($VERSION);
-$VERSION = '0.5.2';
+$VERSION = '0.5.1';
$VERSION = eval $VERSION;
1;
@@ -34,7 +34,7 @@
=head1 SYNOPSIS
- use Arch 0.5.2;
+ use Arch 0.5.1;
# perldoc Arch
# axp man Arch
Modified: trunk/libarch-perl/perllib/Arch/Backend.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Backend.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Backend.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Backend.pm Sun Mar 7 23:53:57 2010
@@ -183,8 +183,8 @@
B<arch_backend>,
B<arch_backend_name>,
B<arch_backend_version>,
+B<is_baz>,
B<is_tla>,
-B<is_baz>,
B<has_archive_setup_cmd>,
B<has_file_diffs_cmd>,
B<has_register_archive_name_arg>,
@@ -192,10 +192,7 @@
B<has_tree_id_cmd>,
B<has_set_tree_version_cmd>,
B<has_cache_feature>,
-B<get_cache_config>,
-B<has_commit_version_arg>,
-B<has_commit_files_separator>,
-B<has_revlib_patch_set_dir>.
+B<get_cache_config>.
=over 4
Modified: trunk/libarch-perl/perllib/Arch/Changes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Changes.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Changes.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Changes.pm Sun Mar 7 23:53:57 2010
@@ -240,15 +240,15 @@
Creates a new, initially empty, changes list.
-Typically it is called indirectly from method B<get_changes> in
-L<Arch::Changeset>, L<Arch::Tree> or L<Arch::Log> class.
+Typically this is done by one of L<Arch::Changeset>, L<Arch::Tree> or
+L<Arch::Log>.
=item B<add> I<type> I<is_dir> I<arguments...>
Adds a new change element to the list of changes.
-Typically it is called indirectly from method B<get_changes> in
-L<Arch::Changeset>, L<Arch::Tree> or L<Arch::Log> class.
+Typically this is done by one of L<Arch::Changeset>, L<Arch::Tree> or
+L<Arch::Log>.
=item B<count>
@@ -256,7 +256,7 @@
=item B<get> I<num>
-Returns the I<num>-th change element or all if I<num> is undefined.
+Returns the I<num>th change element or all if I<num> is undefined.
=item B<get_listing>
Modified: trunk/libarch-perl/perllib/Arch/Changeset.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Changeset.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Changeset.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Changeset.pm Sun Mar 7 23:53:57 2010
@@ -28,8 +28,6 @@
my $dir = shift || die "Arch::Changeset::new: no dir\n";
die "No changeset dir $dir for revision $revision\n" unless -d $dir;
- $dir =~ s!/$!!;
-
my $self = {
revision => $revision,
dir => $dir,
@@ -84,7 +82,7 @@
my $num_lines = $patch_content =~ s/\n/\n/g;
$num_lines += $has_end_line? 0: 1;
my $file = $patch_file;
- $file =~ s!^\Q$dir\E/[^/]+/!!s;
+ $file =~ s!^$dir/[^/]+/!!s;
my ($file1, $file2, $line1, $line2, $prefix);
if ($change_type eq "new") {
$file1 = "/dev/null";
Modified: trunk/libarch-perl/perllib/Arch/FileHighlighter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/FileHighlighter.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/FileHighlighter.pm (original)
+++ trunk/libarch-perl/perllib/Arch/FileHighlighter.pm Sun Mar 7 23:53:57 2010
@@ -56,7 +56,7 @@
sub dehtmlize ($) {
my $str = shift;
- die "No content to dehtmlize" unless defined $str;
+ die "No content to htmlize" unless defined $str;
$str =~ s/&/&/sg;
$str =~ s/"/\"/sg;
Modified: trunk/libarch-perl/perllib/Arch/Inventory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Inventory.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Inventory.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Inventory.pm Sun Mar 7 23:53:57 2010
@@ -248,7 +248,7 @@
print Arch::Inventory->to_string($inv->get_root_entry), "\n";
print $inv->get_listing;
-or (most commonly):
+or (most commonly)
use Arch::Tree;
@@ -335,7 +335,7 @@
The root entry always has the following properties:
$root = {
- category => TREE, # if {arch} exists, SOURCE otherwise
+ category => TREE # if {arch} exists, SOURCE otherwise
untagged => 1,
type => DIRECTORY,
path => '',
Modified: trunk/libarch-perl/perllib/Arch/Session.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Session.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Session.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Session.pm Sun Mar 7 23:53:57 2010
@@ -134,9 +134,7 @@
my $self = shift;
my @keys = @_;
- @keys = qw(archives categories branches versions revisions revision_descs)
- unless @keys;
-
+ @keys = qw(archives categories branches versions revisions revision_descs);
foreach (@keys) {
if (@_ && !exist $self->{$_}) {
warn __PACKAGE__ . "::clear_cache: unknown key ($_), ignoring\n";
Modified: trunk/libarch-perl/perllib/Arch/Tree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/perllib/Arch/Tree.pm?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/perllib/Arch/Tree.pm (original)
+++ trunk/libarch-perl/perllib/Arch/Tree.pm Sun Mar 7 23:53:57 2010
@@ -45,7 +45,6 @@
dir => $root,
own_logs => $init{own_logs},
hide_ids => $init{hide_ids},
- cache_logs => $init{cache_logs},
};
bless $self, $class;
@@ -121,9 +120,6 @@
sub get_log ($$) {
my $self = shift;
my $revision = shift || die;
-
- return $self->{cached_logs}->{$revision}
- if $self->{cached_logs}->{$revision};
my $message;
if ($self->{own_logs}) {
@@ -139,11 +135,7 @@
$message = run_tla("cat-log", "-d", $self->{dir}, $revision);
}
return undef unless $message;
-
- my $log = Arch::Log->new($message, hide_ids => $self->{hide_ids});
- $self->{cached_logs}->{$revision} = $log
- if $self->{cache_logs};
- return $log;
+ return Arch::Log->new($message, hide_ids => $self->{hide_ids});
}
sub get_logs ($;$) {
@@ -336,8 +328,6 @@
sub get_ancestry_logs ($%) {
my $self = shift;
my %args = @_;
-
- my $limit = $args{limit} || 0;
my $callback = $args{callback};
my $one_version = $args{one_version} || 0;
my $no_continuation = $args{no_continuation} || 0;
@@ -367,7 +357,7 @@
$revision = $self->get_previous_revision($revision);
}
push @collected, $callback? $callback->($log): $log;
- last unless --$limit && $log; # undefined by callback
+ last unless $log; # undefined by callback
}
return \@collected;
}
@@ -385,8 +375,6 @@
my $filepath = shift;
@_ = (one_version => $_[0]) if @_ == 1; # be compatible until summer 2005
my %args = @_;
-
- my $limit = delete $args{limit} || 0;
my $callback = delete $args{callback};
my ($is_dir, $changed);
@@ -424,7 +412,7 @@
? $callback->($revision_desc, $log)
: $revision_desc;
- $_[0] = undef unless --$limit && $revision_desc; # undefined by callback
+ $_[0] = undef unless $revision_desc; # undefined by callback
return @returned;
});
}
@@ -622,9 +610,7 @@
my $self = shift;
my @keys = @_;
- @keys = qw(missing_revision_descs missing_revisions cached_logs)
- unless @keys;
-
+ @keys = qw(missing_revision_descs missing_revisions);
foreach (@keys) {
if (@_ && !exist $self->{$_}) {
warn __PACKAGE__ . "::clear_cache: unknown key ($_), ignoring\n";
Modified: trunk/libarch-perl/rpm/Makefile
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarch-perl/rpm/Makefile?rev=53928&op=diff
==============================================================================
--- trunk/libarch-perl/rpm/Makefile (original)
+++ trunk/libarch-perl/rpm/Makefile Sun Mar 7 23:53:57 2010
@@ -1,4 +1,4 @@
-version = 0.5.2
+version = 0.5.1
release = 0.`date +%Y%m%d`
cparams = '' # configure params, not really used
mparams = '' # make params, like: 'CFLAGS="-O2"'
More information about the Pkg-perl-cvs-commits
mailing list