r30691 - in /branches/upstream/libparse-errorstring-perl-perl/current: Changes META.yml lib/Parse/ErrorString/Perl.pm t/04-perldiag.t

[rmayorga at users.alioth.debian.org]

Author: rmayorga
Date: Sat Feb 14 02:34:43 2009
New Revision: 30691

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30691
Log:
[svn-upgrade] Integrating new upstream version, libparse-errorstring-perl-perl (0.13)

Modified:
    branches/upstream/libparse-errorstring-perl-perl/current/Changes
    branches/upstream/libparse-errorstring-perl-perl/current/META.yml
    branches/upstream/libparse-errorstring-perl-perl/current/lib/Parse/ErrorString/Perl.pm
    branches/upstream/libparse-errorstring-perl-perl/current/t/04-perldiag.t

Modified: branches/upstream/libparse-errorstring-perl-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-errorstring-perl-perl/current/Changes?rev=30691&op=diff
==============================================================================
--- branches/upstream/libparse-errorstring-perl-perl/current/Changes (original)
+++ branches/upstream/libparse-errorstring-perl-perl/current/Changes Sat Feb 14 02:34:43 2009
@@ -1,4 +1,10 @@
 Revision history for Parse-ErrorString-Perl
+
+0.13    9 February 2009
+        * try to fix test script for diagnostic text in perl = 5.8.9 version again...
+
+0.12    8 February 2009
+        * fix test script for diagnostic text in perl = 5.8.9 version
 
 0.11    2 January 2009
         * moved definition of transmo() to allow Parse::ErrorString::Perl->new to be called within a threads context (required by Padre::Task::ErrorParser)

Modified: branches/upstream/libparse-errorstring-perl-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-errorstring-perl-perl/current/META.yml?rev=30691&op=diff
==============================================================================
--- branches/upstream/libparse-errorstring-perl-perl/current/META.yml (original)
+++ branches/upstream/libparse-errorstring-perl-perl/current/META.yml Sat Feb 14 02:34:43 2009
@@ -1,6 +1,6 @@
 ---
 name: Parse-ErrorString-Perl
-version: 0.11
+version: 0.13
 author:
   - 'Petar Shangov <pshangov at yahoo.com>'
 abstract: Parse error messages from the perl interpreter
@@ -19,7 +19,7 @@
 provides:
   Parse::ErrorString::Perl:
     file: lib/Parse/ErrorString/Perl.pm
-    version: 0.11
+    version: 0.13
   Parse::ErrorString::Perl::ErrorItem:
     file: lib/Parse/ErrorString/Perl.pm
   Parse::ErrorString::Perl::StackItem:

Modified: branches/upstream/libparse-errorstring-perl-perl/current/lib/Parse/ErrorString/Perl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-errorstring-perl-perl/current/lib/Parse/ErrorString/Perl.pm?rev=30691&op=diff
==============================================================================
--- branches/upstream/libparse-errorstring-perl-perl/current/lib/Parse/ErrorString/Perl.pm (original)
+++ branches/upstream/libparse-errorstring-perl-perl/current/lib/Parse/ErrorString/Perl.pm Sat Feb 14 02:34:43 2009
@@ -4,7 +4,7 @@
 
 =head1 VERSION
 
-Version 0.11
+Version 0.13
 
 =head1 SYNOPSIS
 
@@ -229,7 +229,7 @@
 
 package Parse::ErrorString::Perl;
 
-our $VERSION = '0.11';
+our $VERSION = '0.13';
 
 use Carp;
 use Pod::Find;

Modified: branches/upstream/libparse-errorstring-perl-perl/current/t/04-perldiag.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-errorstring-perl-perl/current/t/04-perldiag.t?rev=30691&op=diff
==============================================================================
--- branches/upstream/libparse-errorstring-perl-perl/current/t/04-perldiag.t (original)
+++ branches/upstream/libparse-errorstring-perl-perl/current/t/04-perldiag.t Sat Feb 14 02:34:43 2009
@@ -15,20 +15,35 @@
 Execution of error.pl aborted due to compilation errors.
 ENDofMSG
 
-my $diagnostics = <<'ENDofMSG';
+my $diagnostics;
+
+if ($] < 5.008009) {
+
+$diagnostics = <<'ENDofMSG';
+(F) You've said "use strict vars", which indicates that all variables
+must either be lexically scoped (using "my"), declared beforehand using
+"our", or explicitly qualified to say which package the global variable
+is in (using "::").
+ENDofMSG
+
+} elsif ($] < 5.010000) {
+
+$diagnostics = <<'ENDofMSG';
+(F) You've said "use strict" or "use strict vars", which indicates
+that all variables must either be lexically scoped (using "my"),
+declared beforehand using "our", or explicitly qualified to say
+which package the global variable is in (using "::").
+ENDofMSG
+
+} else {
+
+$diagnostics = <<'ENDofMSG';
 (F) You've said "use strict" or "use strict vars", which indicates
 that all variables must either be lexically scoped (using "my" or "state"),
 declared beforehand using "our", or explicitly qualified to say
 which package the global variable is in (using "::").
 ENDofMSG
 
-if ($] < 5.010000) {
-$diagnostics = <<'ENDofMSG';
-(F) You've said "use strict vars", which indicates that all variables
-must either be lexically scoped (using "my"), declared beforehand using
-"our", or explicitly qualified to say which package the global variable
-is in (using "::").
-ENDofMSG
 }