Mailing List Archive

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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org