You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by he...@apache.org on 2022/05/22 08:39:51 UTC

svn commit: r1901112 - /spamassassin/trunk/t/re_base_extraction.t

Author: hege
Date: Sun May 22 08:39:51 2022
New Revision: 1901112

URL: http://svn.apache.org/viewvc?rev=1901112&view=rev
Log:
Clear out some ancient Perl 5.6 checks

Modified:
    spamassassin/trunk/t/re_base_extraction.t

Modified: spamassassin/trunk/t/re_base_extraction.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/re_base_extraction.t?rev=1901112&r1=1901111&r2=1901112&view=diff
==============================================================================
--- spamassassin/trunk/t/re_base_extraction.t (original)
+++ spamassassin/trunk/t/re_base_extraction.t Sun May 22 08:39:51 2022
@@ -10,9 +10,6 @@ use strict;
 use warnings;
 
 my $debug = 0;
-my $running_perl56 = ($] < 5.007);
-
-close STDIN;    # inhibits noise from sa-compile
 
 use Test::More tests => 128;
 use lib '../lib';
@@ -190,11 +187,7 @@ use lib '../lib';
 # skip this one for perl 5.6.*; it does not truncate the long strings in the
 # same place as 5.8.* and 5.9.*, although they still work fine
 
-($running_perl56) and ok(1);
-($running_perl56) and ok(1);
-($running_perl56) and ok(1);
-($running_perl56) and ok(1);
-(!$running_perl56) and try_extraction ('
+try_extraction ('
 
   body VIRUS_WARNING345                /(This message contained attachments that have been blocked by Guinevere|This is an automatic message from the Guinevere Internet Antivirus Scanner)\./
   body VIRUS_WARNING345I                /(This message contained attachments that have been blocked by Guinevere|This is an automatic message from the Guinevere Internet Antivirus Scanner)\./i
@@ -215,11 +208,7 @@ use lib '../lib';
 
 # ---------------------------------------------------------------------------
 
-# also not suitable for perl 5.6.x
-($running_perl56) and ok(1);
-($running_perl56) and ok(1);
-($running_perl56) and ok(1);
-(!$running_perl56) and try_extraction ('
+try_extraction ('
 
   body FOO /foobar\x{e2}\x{82}\x{ac}baz/