r30333 - /trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Sat Jan 31 16:56:39 UTC 2009
Author: antonio-guest
Date: Sat Jan 31 16:56:36 2009
New Revision: 30333
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30333
Log:
lintian clean now
Modified:
trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors
Modified: trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors?rev=30333&op=diff
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors (original)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors Sat Jan 31 16:56:36 2009
@@ -1,5 +1,126 @@
-fix some pod errors to make lintian happy
---- libfinance-bank-ie-permanenttsb-perl/ptsb 2009-01-31 16:22:53.000000000 +0000
+patch to fix pod errors and make lintian happy
+
+diff -ur libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm git/lib/Finance/Bank/IE/PermanentTSB.pm
+--- libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 16:44:47.000000000 +0000
++++ git/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 16:05:51.000000000 +0000
+@@ -102,8 +102,6 @@
+
+ =head2 C<$boolean = login($config_ref)> - B<private>
+
+-=over
+-
+ B<This is a private function used by other function within the module.
+ You don't need to call it directly from you code!>
+
+@@ -117,9 +115,8 @@
+ persist on your filesystem until you reboot your machine (and /var/tmp
+ get clean at boot time).
+
+-=back
+-
+ =cut
++
+ sub login {
+ my $self = shift;
+ my $config_ref = shift;
+@@ -245,8 +244,6 @@
+
+ =head2 C<set_pan_fields($config_ref)> - B<private>
+
+-=over
+-
+ B<This is a private function used by other function within the module.
+ You don't need to call it directly from you code!>
+
+@@ -270,8 +267,6 @@
+
+ This function doesn't return anything.
+
+-=back
+-
+ =cut
+
+ sub set_pan_fields {
+@@ -308,8 +303,6 @@
+
+ =head2 C<@accounts_balance = check_balance($config_ref)> - B<public>
+
+-=over
+-
+ This function require the configuration hash reference as argument.
+ It returns an reference to an array of hashes, one hash for each account.
+ In case of error it return undef;
+@@ -318,7 +311,7 @@
+ =over
+
+ =item * 'accname': account name, i.e. "Switch Current A/C".
+-
++
+ =item * 'accno': account number. An integer representing the last 4 digits of the
+ account.
+
+@@ -352,8 +345,6 @@
+ );
+ }
+
+-=back
+-
+ =cut
+
+ sub check_balance {
+@@ -406,8 +395,6 @@
+ =head2 C<@account_statement = account_statement($config_ref, $acc_type,
+ $acc_no, $from, $to, [$type])> - B<public>
+
+-=over
+-
+ This function requires 4 mandatory arguments, the 5th is optional.
+
+ =over
+@@ -442,8 +429,6 @@
+
+ Undef is returned in case of error;
+
+-=back
+-
+ =cut
+
+ sub account_statement {
+@@ -741,18 +726,14 @@
+
+ =head1 MODULE HOMEPAGES
+
+-=item * Project homepage on Google code (with SVN repository):
+-
+ =over
+
+-L<http://code.google.com/p/finance-bank-ie-permanenttsb>
++=item * Project homepage on Google code (with SVN repository):
+
+-=back
++L<http://code.google.com/p/finance-bank-ie-permanenttsb>
+
+ =item * Project homepage on CPAN.org:
+
+-=over
+-
+ L<http://search.cpan.org/~pallotron/Finance-Bank-IE-PermanentTSB/>
+
+ =back
+diff -ur libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm git/lib/ptsb_util.pm
+--- libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm 2009-01-31 16:44:47.000000000 +0000
++++ git/lib/ptsb_util.pm 2009-01-31 16:31:12.000000000 +0000
+@@ -2,7 +2,7 @@
+
+ =head1 NAME
+
+-ptsb_util
++ptsb_util - functions used by the Finance::Bank::IE::PermanentTSB CLI
+
+ This is a package which contains a set of functions used by the CLI utility.
+
+diff -ur libfinance-bank-ie-permanenttsb-perl/ptsb git/ptsb
+--- libfinance-bank-ie-permanenttsb-perl/ptsb 2009-01-31 16:44:47.000000000 +0000
+++ git/ptsb 2009-01-31 16:05:51.000000000 +0000
@@ -56,18 +56,17 @@
@@ -51,154 +172,3 @@
=head1 AUTHOR
Angelo "pallotron" Failla - <pallotron at freaknet.org>
---- libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm 2009-01-31 15:37:10.000000000 +0000
-+++ git/lib/ptsb_util.pm 2009-01-31 16:05:51.000000000 +0000
-@@ -293,8 +293,9 @@
- $cf->{todate});
-
-
-- if(not defined $balance) {
-- exit -1;
-+ if($balance->[0]->{accno} eq '') {
-+ print "Error while retrieving the content...\n";
-+ return;
- }
-
- print STDERR Dumper(\$balance) if($cf->{debug});
-@@ -346,7 +347,7 @@
- );
-
- if(not defined $statement) {
-- exit -1;
-+ return;
- }
-
- print STDERR Dumper(\$statement) if($cf->{debug});
---- libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 15:37:10.000000000 +0000
-+++ git/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 16:05:51.000000000 +0000
-@@ -102,8 +102,6 @@
-
- =head2 C<$boolean = login($config_ref)> - B<private>
-
--=over
--
- B<This is a private function used by other function within the module.
- You don't need to call it directly from you code!>
-
-@@ -117,9 +115,8 @@
- persist on your filesystem until you reboot your machine (and /var/tmp
- get clean at boot time).
-
--=back
--
- =cut
-+
- sub login {
- my $self = shift;
- my $config_ref = shift;
-@@ -233,10 +230,12 @@
- "this 3 times in a row or you account will be locked!");
- return undef;
- }
-+ print $content if($config_ref->{debug});
- set_pan_fields($agent, $config_ref);
- $res = $agent->submit();
- $agent->save_content("./step2_pan_result.html")
- if $config_ref->{debug};
-+ print $content if($config_ref->{debug});
- }
-
- return 1;
-@@ -245,8 +244,6 @@
-
- =head2 C<set_pan_fields($config_ref)> - B<private>
-
--=over
--
- B<This is a private function used by other function within the module.
- You don't need to call it directly from you code!>
-
-@@ -270,8 +267,6 @@
-
- This function doesn't return anything.
-
--=back
--
- =cut
-
- sub set_pan_fields {
-@@ -308,8 +303,6 @@
-
- =head2 C<@accounts_balance = check_balance($config_ref)> - B<public>
-
--=over
--
- This function require the configuration hash reference as argument.
- It returns an reference to an array of hashes, one hash for each account.
- In case of error it return undef;
-@@ -318,7 +311,7 @@
- =over
-
- =item * 'accname': account name, i.e. "Switch Current A/C".
--
-+
- =item * 'accno': account number. An integer representing the last 4 digits of the
- account.
-
-@@ -352,8 +345,6 @@
- );
- }
-
--=back
--
- =cut
-
- sub check_balance {
-@@ -367,8 +358,6 @@
-
- $self->login($config_ref) or return undef;
-
-- $res = $agent->get($BASEURL . '/online/Account.aspx');
-- print $agent->content if($config_ref->{debug});
- my $p = HTML::TokeParser->new(\$agent->content());
- my $i = 0;
- my @array;
-@@ -406,8 +395,6 @@
- =head2 C<@account_statement = account_statement($config_ref, $acc_type,
- $acc_no, $from, $to, [$type])> - B<public>
-
--=over
--
- This function requires 4 mandatory arguments, the 5th is optional.
-
- =over
-@@ -442,8 +429,6 @@
-
- Undef is returned in case of error;
-
--=back
--
- =cut
-
- sub account_statement {
-@@ -741,18 +726,14 @@
-
- =head1 MODULE HOMEPAGES
-
--=item * Project homepage on Google code (with SVN repository):
--
- =over
-
--L<http://code.google.com/p/finance-bank-ie-permanenttsb>
-+=item * Project homepage on Google code (with SVN repository):
-
--=back
-+L<http://code.google.com/p/finance-bank-ie-permanenttsb>
-
- =item * Project homepage on CPAN.org:
-
--=over
--
- L<http://search.cpan.org/~pallotron/Finance-Bank-IE-PermanentTSB/>
-
- =back
More information about the Pkg-perl-cvs-commits
mailing list