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/&amp;/&/sg;
 	$str =~ s/&quot;/\"/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