@@ -130,18 +130,18 @@ use $module ;
130
130
EOM
131
131
132
132
use Cwd ;
133
- $here = getcwd ;
133
+ my $here = getcwd ;
134
134
print " I am $here \n " ;
135
135
print " some letters ABC\n " ;
136
- $y = " ABCDEF" ;
136
+ my $y = " ABCDEF" ;
137
137
print <<EOF ;
138
138
Alphabetti Spagetti ($y )
139
139
EOF
140
140
141
141
EOM
142
142
143
143
$a = ` $Perl "-I." $Inc $filename $redir ` ;
144
- ok(5, ($? >>8) == 0) ;
144
+ ok(5, ($? >>8) == 0) or warn $a ;
145
145
ok(6, $a eq <<EOM ) ;
146
146
I am $here
147
147
some letters DEF
@@ -179,18 +179,18 @@ use $module ;
179
179
EOM
180
180
181
181
use Cwd ;
182
- $here = getcwd ;
182
+ my $here = getcwd ;
183
183
print " I am $here \n " ;
184
184
print " some letters ABC\n " ;
185
- $y = " ABCDEF" ;
185
+ my $y = " ABCDEF" ;
186
186
print <<EOF ;
187
187
Alphabetti Spagetti ($y )
188
188
EOF
189
189
190
190
EOM
191
191
192
192
$a = ` $Perl "-I." $Inc $filename $redir ` ;
193
- ok(7, ($? >>8) == 0) ;
193
+ ok(7, ($? >>8) == 0) or warn $a ;
194
194
ok(8, $a eq <<EOM ) ;
195
195
I am $here
196
196
some letters DEF
@@ -286,7 +286,7 @@ use $module4 ;
286
286
EOM
287
287
288
288
print " some letters ABCXYZ\n " ;
289
- $y = " ABCDEFXYZ" ;
289
+ my $y = " ABCDEFXYZ" ;
290
290
print <<EOF ;
291
291
Fred likes Alphabetti Spagetti ($y )
292
292
EOF
305
305
EOM
306
306
307
307
$a = ` $Perl "-I." $Inc $filename $redir ` ;
308
- ok(9, ($? >>8) == 0) ;
308
+ ok(9, ($? >>8) == 0) or warn $a ;
309
309
ok(10, $a eq <<EOM ) ;
310
310
I'm feeling used!
311
311
Fred Joe ABC DEF PQR XYZ
@@ -359,15 +359,15 @@ use $module2 qw( ABC NMO) ;
359
359
EOM
360
360
361
361
print " some letters ABCXYZ KLM NMO\n " ;
362
- $y = " ABCDEFXYZKLMNMO" ;
362
+ my $y = " ABCDEFXYZKLMNMO" ;
363
363
print <<EOF ;
364
364
Alphabetti Spagetti ($y )
365
365
EOF
366
366
367
367
EOM
368
368
369
369
$a = ` $Perl "-I." $Inc $filename $redir ` ;
370
- ok(11, ($? >>8) == 0) ;
370
+ ok(11, ($? >>8) == 0) or warn $a ;
371
371
ok(12, $a eq <<EOM ) ;
372
372
some letters PQRPQR PQR PQR
373
373
Alphabetti Spagetti (PQRDEFPQRPQRPQR)
@@ -418,15 +418,15 @@ use $module2 qw( ABC NMO) ;
418
418
EOM
419
419
420
420
print " some letters ABCXYZ KLM NMO\n " ;
421
- $y = " ABCDEFXYZKLMNMO" ;
421
+ my $y = " ABCDEFXYZKLMNMO" ;
422
422
print <<EOF ;
423
423
Alphabetti Spagetti ($y )
424
424
EOF
425
425
426
426
EOM
427
427
428
428
$a = ` $Perl "-I." $Inc $filename $redir ` ;
429
- ok(13, ($? >>8) == 0) ;
429
+ ok(13, ($? >>8) == 0) or warn $a ;
430
430
ok(14, $a eq <<EOM ) ;
431
431
some letters PQRPQR PQR PQR
432
432
Alphabetti Spagetti (PQRDEFPQRPQRPQR)
486
486
EOM
487
487
488
488
$a = `$Perl "-I." $Inc $filename $redir ` ;
489
- ok(15, ($? >>8) == 0) ;
489
+ ok(15, ($? >>8) == 0) or warn $a ;
490
490
ok(16, $a eq <<EOM) ;
491
491
don't cut me in half
492
492
appended
524
524
525
525
my $string = <<'EOM' ;
526
526
print "hello mum\n " ;
527
- $x = 'me ' x 3 ;
527
+ my $x = 'me ' x 3 ;
528
528
print "Who wants it?\n $x \n " ;
529
529
EOM
530
530
@@ -534,7 +534,7 @@ use $block ;
534
534
EOM
535
535
536
536
$a = `$Perl "-I." $Inc $filename $redir ` ;
537
- ok(17, ($? >>8) == 0) ;
537
+ ok(17, ($? >>8) == 0) or warn $a ;
538
538
ok(18, $a eq <<EOM) ;
539
539
hello mum
540
540
Who wants it?
@@ -582,7 +582,7 @@ print "We are in DIR\n" ;
582
582
EOM
583
583
584
584
$a = `$Perl "-I." $Inc $filename $redir ` ;
585
- ok(19, ($? >>8) == 0) ;
585
+ ok(19, ($? >>8) == 0) or warn $a ;
586
586
ok(20, $a eq <<EOM) ;
587
587
We are in $here
588
588
EOM
@@ -633,7 +633,7 @@ HERE today gone tomorrow\n" ;
633
633
EOM
634
634
635
635
$a = `$Perl "-I." $Inc $filename $redir ` ;
636
- ok(21, ($? >>8) == 0) ;
636
+ ok(21, ($? >>8) == 0) or warn $a ;
637
637
ok(22, $a eq <<EOM) ;
638
638
639
639
THERE I am
@@ -683,7 +683,7 @@ HERE today gone tomorrow\n" ;
683
683
EOM
684
684
685
685
$a = `$Perl "-I." $Inc $filenamebin $redir ` ;
686
- ok(23, ($? >>8) == 0) ;
686
+ ok(23, ($? >>8) == 0) or warn $a ;
687
687
ok(24, $a eq <<EOM) ;
688
688
689
689
HERE I am
@@ -728,7 +728,7 @@ writeFile($filename, <<EOM, <<'EOM') ;
728
728
use $block ;
729
729
EOM
730
730
print "HERE HERE\n ";
731
- @a = <DATA>;
731
+ my @a = <DATA>;
732
732
print @a ;
733
733
__DATA__
734
734
HERE I am
@@ -737,7 +737,7 @@ HERE today gone tomorrow
737
737
EOM
738
738
739
739
$a = `$Perl "-I." $Inc $filename $redir ` ;
740
- ok(25, ($? >>8) == 0) ;
740
+ ok(25, ($? >>8) == 0) or warn $a ;
741
741
ok(26, $a eq <<EOM) ;
742
742
THERE THERE
743
743
HERE I am
@@ -784,7 +784,7 @@ writeFile($filename, <<EOM, <<'EOM') ;
784
784
use $block ;
785
785
EOM
786
786
print "HERE HERE\n ";
787
- @a = <DATA>;
787
+ my @a = <DATA>;
788
788
print @a ;
789
789
__END__
790
790
HERE I am
@@ -793,7 +793,7 @@ HERE today gone tomorrow
793
793
EOM
794
794
795
795
$a = `$Perl "-I." $Inc $filename $redir ` ;
796
- ok(27, ($? >>8) == 0) ;
796
+ ok(27, ($? >>8) == 0) or warn $a ;
797
797
ok(28, $a eq <<EOM) ;
798
798
THERE THERE
799
799
HERE I am
@@ -826,12 +826,12 @@ EOM
826
826
827
827
my $str = $^O eq 'MacOS' ? "'ok'" : "q{ok}";
828
828
my $a = `$Perl "-I." $Inc -e "no ${module6} ; print $str "`;
829
- ok(29, ($? >>8) == 0);
829
+ ok(29, ($? >>8) == 0) or warn $a ;
830
830
chomp( $a ) if $^O eq 'VMS';
831
831
ok(30, $a eq 'ok');
832
832
833
833
$a = `$Perl "-I." $Inc $filename2 `;
834
- ok(31, ($? >>8) == 0);
834
+ ok(31, ($? >>8) == 0) or warn $a ;
835
835
chomp( $a ) if $^O eq 'VMS';
836
836
ok(32, $a eq 'ok');
837
837
@@ -875,7 +875,7 @@ HERE today gone tomorrow\n" ;
875
875
EOM
876
876
877
877
$a = `$Perl "-I." $Inc $filenamebin $redir ` ;
878
- ok(33, ($? >>8) != 0) ;
878
+ ok(33, ($? >>8) != 0) or warn $a ;
879
879
ok(34, $a =~ /^filter_read_exact: size parameter must be > 0 at block.pm/) ;
880
880
881
881
0 commit comments