svn commit: r1912447 - /perl/embperl/trunk/test.pl

[richter]

Author: richter
Date: Thu Sep 21 04:08:40 2023
New Revision: 1912447

URL: http://svn.apache.org/viewvc?rev=1912447&view=rev
Log:
avoid warning

Modified:
    perl/embperl/trunk/test.pl

Modified: perl/embperl/trunk/test.pl
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test.pl?rev=1912447&r1=1912446&r2=1912447&view=diff
==============================================================================
--- perl/embperl/trunk/test.pl (original)
+++ perl/embperl/trunk/test.pl Thu Sep 21 04:08:40 2023
@@ -2128,7 +2128,7 @@ do
                unshift (@testargs, 'dbgbreak') if ($opt_dbgbreak) ;
     
                $txt = "#$testnum ". $file . ($debug != $defaultdebug ?"-d 
$debug ":"") . ($test->{msg} || '') . '...' ;
-               $txt .= ' ' x (50 - length ($txt)) ;
+               $txt .= ' ' x (60 - length ($txt)) ;
                print $txt ; 
     
     
@@ -2214,7 +2214,7 @@ do
 
 
            $txt2 = "$txt from file...";
-           $txt2 .= ' ' x (50 - length ($txt2)) ;
+           $txt2 .= ' ' x (60 - length ($txt2)) ;
            print $txt2 ; 
 
            unlink ($outfile) ;
@@ -2235,7 +2235,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt from memory...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                unlink ($outfile) ;
@@ -2257,7 +2257,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to memory...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2284,7 +2284,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to tied handle...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2313,7 +2313,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt from/to memory...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2358,7 +2358,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to memory...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2392,7 +2392,7 @@ do
            if (0) #$err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (path) ...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
 
                $err = eval { Embperl::Execute ({'inputfile'  => 'xxxx0',
@@ -2414,7 +2414,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (input) ...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
                my $out ;
                @errors = () ;
@@ -2441,7 +2441,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (output) ...";
-               $txt2 .= ' ' x (50 - length ($txt2)) ;
+               $txt2 .= ' ' x (60 - length ($txt2)) ;
                print $txt2 ; 
                my $out ;
                @errors = () ;
@@ -2491,7 +2491,7 @@ do
                     $page = $src ;
                                     
                     $txt2 = "$src ...";
-                   $txt2 .= ' ' x (50 - length ($txt2)) ;
+                   $txt2 .= ' ' x (60 - length ($txt2)) ;
                    print $txt2 ; 
 
                    my $outdata ;
@@ -3009,7 +3009,7 @@ do
                }
     
            $txt = "#$testnum $file" . ($debug != $defaultdebug ?"-d $debug 
":"") . '...' ;
-           $txt .= ' ' x (50 - length ($txt)) ;
+           $txt .= ' ' x (60 - length ($txt)) ;
            print $txt ; 
            unlink ($outfile) ;
            



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org