r55618 - in /trunk/libnet-google-code-perl: ./ debian/ debian/source/ lib/Net/Google/ lib/Net/Google/Code/ lib/Net/Google/Code/Issue/ lib/Net/Google/Code/Role/ lib/Net/Google/Code/Wiki/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Apr 7 15:31:32 UTC 2010
Author: jawnsy-guest
Date: Wed Apr 7 15:31:25 2010
New Revision: 55618
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55618
Log:
* New upstream release
* Use new 3.0 (quilt) source format
* Rewrite control description
* Update copyright information
Added:
trunk/libnet-google-code-perl/debian/source/
trunk/libnet-google-code-perl/debian/source/format
Modified:
trunk/libnet-google-code-perl/Changes
trunk/libnet-google-code-perl/META.yml
trunk/libnet-google-code-perl/debian/changelog
trunk/libnet-google-code-perl/debian/control
trunk/libnet-google-code-perl/debian/copyright
trunk/libnet-google-code-perl/lib/Net/Google/Code.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Download.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Attachment.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Comment.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Util.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/HTMLTree.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/Pageable.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki.pm
trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki/Comment.pm
Modified: trunk/libnet-google-code-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/Changes?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/Changes (original)
+++ trunk/libnet-google-code-perl/Changes Wed Apr 7 15:31:25 2010
@@ -1,4 +1,8 @@
Revision history for Net-Google-Code
+
+0.18 Wed Apr 7 12:38:05 GMT 2010
+
+* explicitly delete HTML::TreeBuilder object
0.17 Fri Jan 29 04:15:09 UTC 2010
Modified: trunk/libnet-google-code-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/META.yml?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/META.yml (original)
+++ trunk/libnet-google-code-perl/META.yml Wed Apr 7 15:31:25 2010
@@ -35,4 +35,4 @@
XML::FeedPP: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.17
+version: 0.18
Modified: trunk/libnet-google-code-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/debian/changelog?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/debian/changelog (original)
+++ trunk/libnet-google-code-perl/debian/changelog Wed Apr 7 15:31:25 2010
@@ -1,3 +1,12 @@
+libnet-google-code-perl (0.18-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Use new 3.0 (quilt) source format
+ * Rewrite control description
+ * Update copyright information
+
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 07 Apr 2010 12:05:50 -0400
+
libnet-google-code-perl (0.17-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libnet-google-code-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/debian/control?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/debian/control (original)
+++ trunk/libnet-google-code-perl/debian/control Wed Apr 7 15:31:25 2010
@@ -22,8 +22,7 @@
libparams-validate-perl, libany-moose-perl, libwww-mechanize-perl,
libmime-types-perl, libhtml-tree-perl, libfile-mmagic-perl,
libjson-perl
-Description: Perl client library for Google Code projects
- This package provides a Perl interface, Net::Google::Code, which allows
- you to interact with projects hosted on http://code.google.com/ from
- Perl programs. Interacting with project issue trackers, wikis, and
- downloads are all supported.
+Description: interface to projects on Google Code
+ Net::Google::Code is a Perl module that provides an interface for interacting
+ with projects hosted on Google Code <URL:http://code.google.com/>. It allows
+ manipulation of project issue trackers, wikis and downloads.
Modified: trunk/libnet-google-code-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/debian/copyright?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/debian/copyright (original)
+++ trunk/libnet-google-code-perl/debian/copyright Wed Apr 7 15:31:25 2010
@@ -4,19 +4,19 @@
Name: Net-Google-Code
Files: *
-Copyright: 2008-20010, Best Practical Solutions, LLC
+Copyright: 2008-2010, Best Practical Solutions
+License: Artistic or GPL-1+
+
+Files: debian/*
+Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
+ 2010, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+ 2009, Christine Spang <christine at debian.org>
License: Artistic or GPL-1+
Files: inc/Module/*
-Copyright: 2002-2009, Adam Kennedy <adamk at cpan.org>
- 2002-2009, Audrey Tang <autrijus at autrijus.org>
- 2002-2009, Brian Ingerson <ingy at cpan.org>
-License: Artistic or GPL-1+
-
-Files: debian/*
-Copyright: 2009, Christine Spang <christine at debian.org>
- 2009, Jonathan Yu <jawnsy at cpan.org>
- 2010, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+Copyright: 2002-2010, Adam Kennedy <adamk at cpan.org>
+ 2002-2010, Audrey Tang <autrijus at autrijus.org>
+ 2002-2010, Brian Ingerson <ingy at cpan.org>
License: Artistic or GPL-1+
License: Artistic
Added: trunk/libnet-google-code-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/debian/source/format?rev=55618&op=file
==============================================================================
--- trunk/libnet-google-code-perl/debian/source/format (added)
+++ trunk/libnet-google-code-perl/debian/source/format Wed Apr 7 15:31:25 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code.pm Wed Apr 7 15:31:25 2010
@@ -4,7 +4,7 @@
with 'Net::Google::Code::TypicalRoles';
use Scalar::Util qw/blessed/;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
has 'project' => (
isa => 'Str',
@@ -94,6 +94,7 @@
sub parse {
my $self = shift;
my $tree = shift;
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
my $summary =
@@ -125,6 +126,7 @@
push @labels, $tag->content_array_ref->[0];
}
$self->labels( \@labels ) if @labels;
+ $tree->delete if $need_delete;
return 1;
}
@@ -169,6 +171,7 @@
push @wikis, $wiki;
}
}
+ $tree->delete;
$self->wikis( \@wikis );
}
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Download.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Download.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Download.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Download.pm Wed Apr 7 15:31:25 2010
@@ -69,6 +69,7 @@
sub parse {
my $self = shift;
my $tree = shift;
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
my $entry;
@@ -120,6 +121,7 @@
if ( $checksum =~ /^SHA1 Checksum:\s+(\w+)/ ) {
$self->checksum( $1 );
}
+ $tree->delete if $need_delete;
}
sub BUILDARGS {
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue.pm Wed Apr 7 15:31:25 2010
@@ -124,6 +124,7 @@
my $self = shift;
my $tree = shift;
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
# extract summary
@@ -257,7 +258,8 @@
unshift @comments, $initial_comment;
$self->comments( \@comments );
-
+ $tree->delete if $need_delete;
+ return 1;
}
sub load_comments {
@@ -276,7 +278,7 @@
sub parse_hybrid {
my $self = shift;
my $tree = shift;
-
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
my $description = $tree->look_down( class => 'vt issuedescription' );
@@ -371,7 +373,8 @@
$initial_comment->updates->{$_} = $self->$_;
}
$self->comments->[0] = $initial_comment;
-
+ $tree->delete if $need_delete;
+ return 1;
}
sub _load_from_xml {
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Attachment.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Attachment.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Attachment.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Attachment.pm Wed Apr 7 15:31:25 2010
@@ -25,17 +25,10 @@
sub parse {
my $self = shift;
- my $html = shift;
-
- my $tr;
-
- if ( blessed $html ) {
- $tr = $html->find_by_tag_name( 'tr' );
- }
- else {
- my $tree = $self->html_tree( html => $html );
- $tr = $tree->find_by_tag_name( 'tr' );
- }
+ my $tree = shift;
+ my $need_delete = not blessed $tree;
+ $tree = $self->html_tree( html => $tree ) unless blessed $tree;
+ my $tr = $tree->find_by_tag_name('tr');
my $b = $tr->find_by_tag_name('b'); # name lives here
if ($b) {
@@ -71,12 +64,14 @@
}
}
+ $tree->delete if $need_delete;
return 1;
}
sub parse_attachments {
my $self = shift;
my $element = shift;
+ my $need_delete = not blessed $element;
$element = $self->html_tree( html => $element ) unless blessed $element;
my @attachments;
@@ -90,6 +85,7 @@
push @attachments, $a;
}
}
+ $element->delete if $need_delete;
return @attachments;
}
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Comment.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Comment.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Comment.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Comment.pm Wed Apr 7 15:31:25 2010
@@ -30,6 +30,7 @@
sub parse {
my $self = shift;
my $element = shift;
+ my $need_delete = not blessed $element;
$element = $self->html_tree( html => $element ) unless blessed $element;
my $author = $element->look_down( class => 'author' );
@@ -87,12 +88,14 @@
if $att_tag;
$self->attachments( \@attachments );
+ $self->delete if $need_delete;
return 1;
}
sub parse_hybrid {
my $self = shift;
my $element = shift;
+ my $need_delete = not blessed $element;
$element = $self->html_tree( html => $element ) unless blessed $element;
my $updates = $element->look_down( class => 'updates' );
if ($updates) {
@@ -127,7 +130,7 @@
Net::Google::Code::Issue::Attachment->parse_attachments($att_tag)
if $att_tag;
$self->attachments( \@attachments );
-
+ $element->delete if $need_delete;
return 1;
}
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Util.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Util.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Issue/Util.pm Wed Apr 7 15:31:25 2010
@@ -59,6 +59,7 @@
. ( $ref->{$k}->{'#text'} || '' )
. '</pre>' );
$text = $tree->as_text if $tree;
+ $tree->delete;
}
else {
$text = $ref->{$k}->{'#text'};
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/HTMLTree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/HTMLTree.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/HTMLTree.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/HTMLTree.pm Wed Apr 7 15:31:25 2010
@@ -28,12 +28,13 @@
);
my $tree;
-
+ my $need_delete;
if ( blessed $args{html} ) {
$tree = $args{html};
}
else {
$tree = $self->html_tree( html => $args{html} );
+ $need_delete = 1;
}
my $part = $tree;
@@ -41,9 +42,12 @@
($part) = $tree->look_down( @{ $args{look_down} } );
}
- return unless $part;
- my $text = $part->as_text;
+ my $text = $part && $part->as_text;
+ $tree->delete if $need_delete;
+
+ return unless defined $text;
+
return 1 if $text eq $args{as_text};
if ( ( ref $args{as_text} eq 'Regexp' ) && ( my @captures =
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/Pageable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/Pageable.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/Pageable.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Role/Pageable.pm Wed Apr 7 15:31:25 2010
@@ -21,6 +21,7 @@
$args{limit} ||= 999_999_999; # the impossible huge limit
my $tree = $args{html};
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
# assuming there's at most 20 columns
@@ -84,6 +85,7 @@
}
}
+ $tree->delete if $need_delete;
if ( scalar @rows > $args{limit} ) {
# this happens when limit is less than the 1st page's number, so in
# some similar situations
@@ -105,6 +107,7 @@
}
);
my $tree = $args{html};
+ my $need_delete = not blessed $tree;
$tree = $self->html_tree( html => $tree ) unless blessed $tree;
my @titles = @{$args{titles}};
my $label_column = $args{label_column};
@@ -144,6 +147,7 @@
$k++;
}
}
+ $tree->delete if $need_delete;
return @rows;
}
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki.pm Wed Apr 7 15:31:25 2010
@@ -112,6 +112,8 @@
push @comments, $comment;
}
$self->comments( \@comments );
+ $tree->delete;
+ return 1;
}
no Any::Moose;
Modified: trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki/Comment.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki/Comment.pm?rev=55618&op=diff
==============================================================================
--- trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki/Comment.pm (original)
+++ trunk/libnet-google-code-perl/lib/Net/Google/Code/Wiki/Comment.pm Wed Apr 7 15:31:25 2010
@@ -22,7 +22,7 @@
sub parse {
my $self = shift;
my $element = shift;
-
+ my $need_update = not blessed $element;
$element = $self->html_tree( html => $element ) unless blessed $element;
my $author =
@@ -34,6 +34,7 @@
$self->author( $author ) if $author;
$self->date( $date ) if $date;
$self->content( $content ) if $content;
+ $element->delete if $need_update;
return 1;
}
More information about the Pkg-perl-cvs-commits
mailing list