my $Is_VMS = $^O eq 'VMS';
my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
my $tmpfile = "tmp0000";
my $i = 0 ;
1 while -f ++$tmpfile;
my $files = 0;
foreach my $file (@w_files) {
- next if /(~|\.orig|,v)$/;
+ next if $file =~ /(~|\.orig|,v)$/;
open F, "<$file" or die "Cannot open $file: $!\n" ;
my $line = 0;
`./perl "-I../lib" $switch $tmpfile 2>&1` :
$Is_MSWin32 ?
`.\\perl -I../lib $switch $tmpfile 2>&1` :
+ $Is_NetWare ?
+ `perl -I../lib $switch $tmpfile 2>&1` :
`./perl -I../lib $switch $tmpfile 2>&1`;
my $status = $?;
$results =~ s/\n+$//;