r34506 - in /branches/upstream/libgd-securityimage-perl/current: ./ builder/ lib/GD/ lib/GD/SecurityImage/ t/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu Apr 30 23:33:52 UTC 2009
Author: ryan52-guest
Date: Thu Apr 30 23:33:47 2009
New Revision: 34506
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34506
Log:
[svn-upgrade] Integrating new upstream version, libgd-securityimage-perl (1.70)
Removed:
branches/upstream/libgd-securityimage-perl/current/t/200-all-modules-have-the-same-version.t
Modified:
branches/upstream/libgd-securityimage-perl/current/Changes
branches/upstream/libgd-securityimage-perl/current/MANIFEST
branches/upstream/libgd-securityimage-perl/current/META.yml
branches/upstream/libgd-securityimage-perl/current/builder/Build.pm
branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage.pm
branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/GD.pm
branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Magick.pm
branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Styles.pm
Modified: branches/upstream/libgd-securityimage-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/Changes?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/Changes (original)
+++ branches/upstream/libgd-securityimage-perl/current/Changes Thu Apr 30 23:33:47 2009
@@ -1,6 +1,12 @@
Revision history for Perl extension GD::SecurityImage.
Time zone is GMT+2.
+
+1.70 Thu Apr 30 16:56:32 2009
+ => Made a mistake. version checking test is really gone now.
+
+1.69 Thu Apr 30 15:13:19 2009
+ => Re-release without the version check test.
1.68 Wed Apr 22 19:49:46 2009
=> Update builder.
Modified: branches/upstream/libgd-securityimage-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/MANIFEST?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/MANIFEST (original)
+++ branches/upstream/libgd-securityimage-perl/current/MANIFEST Thu Apr 30 23:33:47 2009
@@ -20,7 +20,6 @@
SPEC
builder/Build.pm
builder/Build/Spec.pm
-t/200-all-modules-have-the-same-version.t
t/201-pod.t
t/202-pod-coverage.t
Makefile.PL Generated automatically
Modified: branches/upstream/libgd-securityimage-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/META.yml?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/META.yml (original)
+++ branches/upstream/libgd-securityimage-perl/current/META.yml Thu Apr 30 23:33:47 2009
@@ -1,6 +1,6 @@
---
name: GD-SecurityImage
-version: 1.68
+version: 1.70
author:
- 'Burak Gursoy <burak at cpan.org>'
abstract: Security image (captcha) generator.
@@ -17,16 +17,16 @@
provides:
GD::SecurityImage:
file: lib/GD/SecurityImage.pm
- version: 1.68
+ version: 1.70
GD::SecurityImage::GD:
file: lib/GD/SecurityImage/GD.pm
- version: 1.68
+ version: 1.70
GD::SecurityImage::Magick:
file: lib/GD/SecurityImage/Magick.pm
- version: 1.68
+ version: 1.70
GD::SecurityImage::Styles:
file: lib/GD/SecurityImage/Styles.pm
- version: 1.68
+ version: 1.70
no_index:
directory:
- monolithic_version
Modified: branches/upstream/libgd-securityimage-perl/current/builder/Build.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/builder/Build.pm?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/builder/Build.pm (original)
+++ branches/upstream/libgd-securityimage-perl/current/builder/Build.pm Thu Apr 30 23:33:47 2009
@@ -2,8 +2,9 @@
use strict;
use vars qw( $VERSION );
use warnings;
-
-$VERSION = '0.50';
+use constant TAINT_SHEBANG => "#!perl -Tw\n";
+
+$VERSION = '0.60';
use File::Find;
use File::Spec;
@@ -35,6 +36,7 @@
__PACKAGE__->add_property( change_versions => 0 );
__PACKAGE__->add_property( vanilla_makefile_pl => 1 );
__PACKAGE__->add_property( monolith_add_to_top => [] );
+__PACKAGE__->add_property( taint_mode_tests => 0 );
sub new {
my $class = shift;
@@ -73,9 +75,37 @@
},
no_chdir => 1,
}, "lib";
+ $self->_create_taint_mode_tests if $self->taint_mode_tests;
$self->_change_versions( \@modules ) if $self->change_versions;
$self->_build_monolith( \@modules ) if $self->build_monolith;
$self->SUPER::ACTION_dist( @_ );
+}
+
+sub _create_taint_mode_tests {
+ my $self = shift;
+ require File::Basename;
+ my @tests = glob 't/*.t';
+ my @taints = map {
+ my $t = File::Basename::basename( $_ );
+ my($num,$rest) = split /\-/xms, $t, 2;
+ "t/$num-taint-mode-$rest";
+ } @tests;
+
+ for my $i ( 0..$#tests ) {
+ next if $tests[$i] =~ m{ pod[.]t \z }xms;
+ next if $tests[$i] =~ m{ pod\-coverage[.]t \z }xms;
+ next if $tests[$i] =~ m{ all\-modules\-have\-the\-same\-version[.]t \z }xms;
+ open my $ORIG, '<:raw', $tests[$i] or die "Can not open file($tests[$i]): $!";
+ open my $DEST, '>:raw', $taints[$i] or die "Can not open file($taints[$i]): $!";
+ print $DEST TAINT_SHEBANG;
+ while ( my $line = readline $ORIG ) {
+ print $DEST $line;
+ }
+ close $ORIG;
+ close $DEST;
+ $self->_write_file( '>>', 'MANIFEST', "$taints[$i]\n");
+ }
+ return;
}
sub _change_versions {
@@ -186,7 +216,7 @@
if $is_eof && ! $add_pod{ $mod }++;
};
$is_eof ? do { $POD .= $line; }
- : do {
+ : do {
print { $is_pre ? $BUFFER : $MONO } $line;
};
}
@@ -255,7 +285,7 @@
PROVE: {
warn "\tTESTING MONOLITH\n";
local $ENV{AUTHOR_TESTING_MONOLITH_BUILD} = 1;
- my @output = qx(prove -Isingle);
+ my @output = qx(prove -Imonolithic_version);
print "\t$_" for @output;
chomp(my $result = pop @output);
die MONOLITH_TEST_FAIL if $result ne 'Result: PASS';
Modified: branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage.pm?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage.pm (original)
+++ branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage.pm Thu Apr 30 23:33:47 2009
@@ -4,7 +4,7 @@
use GD::SecurityImage::Styles;
use Carp qw(croak);
-$VERSION = '1.68';
+$VERSION = '1.70';
sub import {
my $class = shift;
@@ -434,8 +434,8 @@
=head1 DESCRIPTION
-This document describes version C<1.68> of C<GD::SecurityImage>
-released on C<23 April 2009>.
+This document describes version C<1.70> of C<GD::SecurityImage>
+released on C<30 April 2009>.
The (so called) I<"Security Images"> are so popular. Most internet
software use these in their registration screens to block robot programs
Modified: branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/GD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/GD.pm?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/GD.pm (original)
+++ branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/GD.pm Thu Apr 30 23:33:47 2009
@@ -25,7 +25,7 @@
use GD;
-$VERSION = '1.68';
+$VERSION = '1.70';
# define the tff drawing method.
my $TTF = __PACKAGE__->_versiongt( 1.31 ) ? 'stringFT' : 'stringTTF';
@@ -326,8 +326,8 @@
=head1 DESCRIPTION
-This document describes version C<1.68> of C<GD::SecurityImage::GD>
-released on C<23 April 2009>.
+This document describes version C<1.70> of C<GD::SecurityImage::GD>
+released on C<30 April 2009>.
Used internally by L<GD::SecurityImage>. Nothing public here.
Modified: branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Magick.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Magick.pm?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Magick.pm (original)
+++ branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Magick.pm Thu Apr 30 23:33:47 2009
@@ -18,7 +18,7 @@
use Image::Magick;
-$VERSION = '1.68';
+$VERSION = '1.70';
sub init {
# Create the image object
@@ -234,8 +234,8 @@
=head1 DESCRIPTION
-This document describes version C<1.68> of C<GD::SecurityImage::Magick>
-released on C<23 April 2009>.
+This document describes version C<1.70> of C<GD::SecurityImage::Magick>
+released on C<30 April 2009>.
Includes GD method emulations for Image::Magick.
Modified: branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Styles.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Styles.pm?rev=34506&op=diff
==============================================================================
--- branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Styles.pm (original)
+++ branches/upstream/libgd-securityimage-perl/current/lib/GD/SecurityImage/Styles.pm Thu Apr 30 23:33:47 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '1.68';
+$VERSION = '1.70';
sub style_default {
$_[0]->_drcommon(" \ lines will be drawn ");
@@ -103,8 +103,8 @@
=head1 DESCRIPTION
-This document describes version C<1.68> of C<GD::SecurityImage::Styles>
-released on C<23 April 2009>.
+This document describes version C<1.70> of C<GD::SecurityImage::Styles>
+released on C<30 April 2009>.
This module contains the styles used in the security image.
More information about the Pkg-perl-cvs-commits
mailing list