Branch Coverage

blib/lib/Win32/Script.pm
Criterion Covered Total %
branch 190 910 20.8


line true false branch
37 0 1 if (grep /^:OVER$/, @_)
38 0 0 grep(/^:ALL$/, @_) ? :
51 0 0 if ($v =~ /oem|866/i) { }
0 0 elsif ($v =~ /ansi|1251/i) { }
0 0 elsif ($v =~ /koi/i) { }
0 0 elsif ($v =~ /8859-5/i) { }
57 0 0 @s > 1 ? :
64 0 0 @_ ? :
65 0 0 $Language =~ /ru/i ? :
0 0 eval '${^ENCODING}' ? :
0 0 if $Interact and $GUI and not $^S
68 0 0 unless $!
73 18 0 unless not $Echo
78 0 0 $_[0] =~ /^\-/i ? :
80 0 0 ref $_[0] eq 'CODE' ? :
82 0 0 unless ($sub or grep {not $_ =~ /^(full|change|read)$/i;} values %acl)
84 0 0 if $opt =~ /\+/
0 0 if $opt =~ /r/i
85 0 0 index($_, ' ') >= 0 ? :
86 0 0 if not $opt =~ /\+/ and %acl
90 0 0 unless $sub
94 0 0 if (ref $acl{$k}) { }
0 0 elsif ($acl{$k} =~ /full/i) { }
0 0 elsif ($acl{$k} =~ /change/i) { }
0 0 elsif ($acl{$k} =~ /add&read/i) { }
0 0 elsif ($acl{$k} =~ /add&list/i) { }
0 0 elsif ($acl{$k} =~ /add/i) { }
0 0 elsif ($acl{$k} =~ /read/i) { }
0 0 elsif ($acl{$k} =~ /list/i) { }
107 0 0 if $Echo
108 0 0 if (not &$sub(@_)) { }
0 0 elsif ($_[0][2] & 16384) { }
110 0 0 if (not scalar %acd) { }
0 0 elsif ($opt =~ /\+/i) { }
113 0 0 if not $opt =~ /r/i
116 0 0 if (not scalar %acf) { }
0 0 elsif ($opt =~ /\+/i) { }
124 0 1 $_[0] =~ /^\-/i ? :
126 0 0 $Language =~ /ru/i ? :
0 1 if ($@ or $ret < 0) { }
133 1 0 $_[0] =~ /^-/i ? :
135 0 1 if ($^O eq 'MSWin32')
136 1 0 if ($^O ne 'dos' and $] >= 5.006 and not $src =~ /[?*]/ and not $dst =~ /[?*]/ and -s $src < 2097152 and not -d $src and -e $dst || (!($opt =~ /d/) && $dst =~ m[(.+)[\\/][^\\/]+$] ? -d $1 : 0)) { }
0 0 elsif ($^O =~ /MSWin32|dos/) { }
138 0 0 $^O eq 'MSWin32' ? :
0 0 $dst =~ m[[\\/]$] ? :
0 0 $src =~ m[[\\/]([^\\/]+)$] ? :
0 1 if -d $dst
140 1 0 -f $dst ? :
0 1 $^O eq 'MSWin32' ? :
0 1 unless -f $dst ? unlink($dst) : 1 and $^O eq 'MSWin32' ? Win32::CopyFile($src, $dst, 1) : eval "use File::Copy; File::Copy::copy('${src}','${dst}')"
144 0 0 (eval { do { (Win32::GetOSVersion())[1] } } || eval q[use Win32::TieRegistry; $$Registry{'LMachine\\Software\\Microsoft\\Windows NT\\CurrentVersion\\\\CurrentVersion'}] || 0) >= 5 ? :
0 0 if ($ENV{'OS'} || '') =~ /Windows_NT/i
146 0 0 $opt =~ /f/i ? :
0 0 $opt =~ /d/i ? :
149 0 0 $ENV{'OS'} && $ENV{'OS'} =~ /windows_nt/i ? :
0 0 if $rsp and $ENV{'OS'} && $ENV{'OS'} =~ /windows_nt/i ? !(-e $dst) : !(-d $dst)
160 0 1 $_[0] =~ /^\-/i ? :
167 0 0 $Language =~ /ru/i ? :
0 1 unless open IN, "<$file"
170 0 0 $Language =~ /ru/i ? :
0 1 unless defined read(IN, $buff, $bufsze)
171 0 1 $opt =~ /\-a? ?adler/i ? :
173 0 0 $Language =~ /ru/i ? :
0 1 unless close IN
186 2 2 $_[0] =~ /^\-/ || $_[0] eq '' ? :
190 0 4 if (-d $elem) { }
0 8 elsif (-f $elem and not unlink($elem)) { }
191 0 0 if ($opt =~ /r/i and not FileDelete($opt, "$elem/*")) { }
0 0 elsif (not rmdir $elem) { }
196 0 0 $Language =~ /ru/i ? :
0 0 unless $opt =~ /i/i
201 0 0 $Language =~ /ru/i ? :
0 0 unless $opt =~ /i/i
211 0 0 $_[0] =~ /^-/i ? :
219 0 1 $_[0] =~ /^-/i ? :
221 0 1 @_ > 1 ? :
0 1 if ($fileto =~ /^-/i)
223 1 0 $opt =~ /^\-i/i ? :
227 1 0 if ($opt =~ /^\-i$/i) { }
0 0 elsif ($opt =~ /^-m$/i) { }
232 2 4 if /^\s*[\[]([^\]]*)/
234 2 4 if not defined $_ or $_ ne $row
235 6 0 if defined $_
245 0 0 if $opt =~ /^\-i\s*(.*)/i
246 0 0 if (not -f $file and -f $fileto)
249 0 0 $Language =~ /ru/i ? :
0 0 unless File::Copy::copy($fileto, $file)
252 0 0 $Language =~ /ru/i ? :
0 0 unless open IN, "<$file"
253 0 0 $Language =~ /ru/i ? :
0 0 unless open OUT, ">$fileto"
255 0 0 unless defined($_ = )
257 0 0 if /^\s*[\[]([^\]]*)/
259 0 0 $Language =~ /ru/i ? :
0 0 unless not defined $_ or print OUT $_, "\n"
261 0 0 $Language =~ /ru/i ? :
0 0 unless close IN
262 0 0 $Language =~ /ru/i ? :
0 0 unless close OUT
263 0 0 $Language =~ /ru/i ? :
0 0 unless not $mtd or rename $fileto, $file
270 1 1 $_[0] =~ /^\-/i ? :
272 2 0 unless $opt =~ /-\$/i
273 2 0 unless $opt =~ /-\$/i
276 2 1 if (!$sub || ref $dir and ref $_[$#_] and $i <= $#_) { }
1 0 elsif (ref $dir) { }
277 2 0 if (ref $elem)
278 0 2 if ref $dir
284 1 1 $opt =~ /[^!]*i/i ? :
287 0 2 m(^(.*)[/\\]([^/\\]+)$) ? :
288 0 1 $Language =~ /ru/i ? :
1 1 if (@stat == 0 and $opt =~ /[^!]*i/i || $^O eq 'MSWin32' && $elem =~ /[\?]/i) { }
1 0 elsif (@stat == 0) { }
0 0 elsif ($stat[2] & 40960 and $opt =~ /!.*s/i) { }
0 0 elsif (not defined $fs) { }
0 0 elsif ($fs != $stat[2] and $opt =~ /!.*m/i) { }
293 0 0 if ($stat[2] & 16384 and $opt =~ /!.*l/i)
294 0 0 unless defined $_
297 0 0 if ($stat[2] & 16384 and $opt =~ /!.*d/i) { }
0 0 elsif (&$sub(\@stat, @nme, $result)) { }
299 0 0 unless defined $_
300 0 0 if ($stat[2] & 16384 and not $opt =~ /!.*[rl]/i)
301 0 0 unless defined $_
305 0 1 defined $result ? :
310 0 10 $^O eq 'MSWin32' ? :
317 0 0 if (-e $_[0]) { }
321 0 0 $_[0] =~ m(([^/\\]+)$)i ? :
327 0 0 $Language =~ /ru/i ? :
0 0 $pth eq '' ? :
0 0 unless opendir DIR, $pth eq '' ? './' : $pth
330 0 0 if $_ eq '.' or $_ eq '..' or not $_ =~ /^$msk$/i
333 0 0 $Language =~ /ru/i ? :
0 0 unless closedir DIR
345 0 1 if (ref $file or ref \$file eq 'GLOB') { }
347 1 0 caller 1 ? :
348 0 0 $Language =~ /ru/i ? :
0 1 unless open "${c}HANDLE", $file
350 0 0 $Language =~ /ru/i ? :
0 1 unless close "${c}HANDLE"
358 0 1 $_[0] =~ /^-/i ? :
367 0 1 if (scalar @_ <= 0)
371 0 0 if ($row =~ /^[\[]/i) { }
0 0 elsif ($row =~ /^[;]/i) { }
383 3 1 ref $row ? :
3 0 ref $row ? :
1 3 if ((ref $row ? $$row[0] : $row) =~ /^\s*[\[]/i) { }
0 3 elsif ((ref $row ? $$row[0] : $row) =~ /^\s*[\;]/i) { }
384 0 1 ref $row ? :
385 0 1 ref $row ? :
388 0 1 unless $ini[$i]
389 1 0 if ($ini[$i] =~ /^\s*\Q$sct\E\s*$/i)
392 0 1 if ($op =~ /[\+i]/i and $isct == -1) { }
0 1 elsif ($isct == -1) { }
0 1 elsif ($op =~ /[\;]/i) { }
0 1 elsif ($op =~ /[\-]/i) { }
408 0 0 ref $row ? :
409 0 0 ref $row ? :
412 0 0 unless $ini[$i]
413 0 0 if ($ini[$i] =~ /^\s*[\[]/i)
414 0 0 if ($ini[$i] =~ /^\s*\Q$nme\E\s*$/i)
416 0 0 if ($op =~ /[\-]/i and $inme != -1) { }
0 0 elsif ($op =~ /[\+]/i and $inme == -1) { }
424 0 8 unless $ini[$i]
425 2 6 if ($ini[$i] =~ /^\s*[\[]/i)
426 1 5 if ($ini[$i] =~ /^\s*\Q$nme\E\s*=/i)
427 1 0 if $ini[$i] =~ /=\s*(.*?)\s*$/i
430 1 2 if ($op =~ /[\+i]/i and $inme == -1) { }
1 1 elsif ($inme == -1) { }
0 1 elsif ($op =~ /[;]/i) { }
0 1 elsif ($op =~ /[\-]/i) { }
1 0 elsif ($op =~ /[\+o]/ and $val ne $val1) { }
437 1 0 unless not $mod
445 0 0 @_ && $_[0] =~ /^-/i ? :
446 0 0 @_ ? :
447 0 0 if defined $f and not $f =~ /\./i
448 0 0 $opt =~ /a/i ? :
0 0 $opt =~ /d/i ? :
0 0 if (defined $f and $opt =~ /[mda]/i)
449 0 0 unless @_
451 0 0 $opt =~ /c/i ? :
452 0 0 if (ref $_[0]) { }
454 0 0 $k =~ /i.*n/i ? :
0 0 $k =~ /i.*l/i ? :
0 0 $k =~ /hot/i ? :
0 0 $k =~ /show/i ? :
0 0 $k =~ /desc|dsc/i ? :
0 0 $k =~ /work|dir/i ? :
0 0 $k =~ /arg/i ? :
0 0 $k =~ /path|targ/i ? :
467 0 0 if defined $_[0]
468 0 0 if defined $_[1]
469 0 0 if defined $_[2]
470 0 0 if defined $_[3]
471 0 0 if defined $_[4]
472 0 0 if defined $_[5]
473 0 0 if defined $_[6]
474 0 0 if defined $_[7]
482 0 0 unless @_
483 0 0 if @_ and not defined $_[0] and $FileLog ne ''
484 0 0 $Language =~ /ru/i ? :
0 0 unless open LOG, ">>$_[0]"
486 0 0 !defined($^S) || $^S ? :
495 0 2 $Language =~ /ru/i ? :
2 0 unless mkdir $dir, $mask || 511
504 1 0 $dir =~ /[\?\*]/ ? :
505 0 0 if not $elem or -d $elem
506 0 0 $elem =~ m[([^\\/]+)$]i ? :
0 0 $elem =~ m[([\d]+)[^\\/]*$] ? :
0 0 $elem =~ m[([\d]+)[^\\/]*$] ? :
0 0 $sub ? :
508 0 0 if (defined $nmb and !$max || $max < $nmb)
510 0 1 if ($@)
511 0 1 wantarray ? :
520 1 0 $dir =~ /[\?\*]/ ? :
521 0 1 if not $elem or -d $elem or not $elem =~ m[([\d]+)[^\\/]*$]
522 0 0 $elem =~ m[([^\\/]+)$]i ? :
0 0 $elem =~ m[([\d]+)[^\\/]*$] ? :
1 0 $elem =~ m[([\d]+)[^\\/]*$] ? :
0 1 $sub ? :
524 1 0 if (defined $nmb and !$min || $min > $nmb)
526 0 1 if ($@)
527 0 1 wantarray ? :
532 0 3 $_[0] =~ /^\-/i ? :
533 2 1 if not $opt =~ /[asb]/i and wantarray
538 0 0 $Language =~ /ru/i ? :
0 3 unless open IN, "<$file"
539 0 3 if ($sub) { }
2 1 elsif ($opt =~ /a/i) { }
543 0 0 $Language =~ /ru/i ? :
0 0 unless defined($_ = )
545 0 0 $opt =~ /a/i ? :
551 0 0 $Language =~ /ru/i ? :
0 12 unless defined($row = )
557 0 1 if $opt =~ /b/i
558 0 0 $Language =~ /ru/i ? :
0 1 unless defined read(IN, $row, -s $file)
560 0 0 $Language =~ /ru/i ? :
0 3 unless close IN
561 0 3 if ($@)
562 2 1 $opt =~ /a/i ? :
567 0 1 $_[0] =~ /^\-/i ? :
569 0 1 ref $_[0] ? :
570 0 0 if &$sub(@_)
578 0 1 if ($^O eq 'MSWin32') { }
579 0 0 if (eval 'use Win32::API; 1')
581 0 0 if $f = 'Win32::API'->new('kernel32', 'GetDiskFreeSpaceEx', ['P', 'P', 'P', 'P'], 'N') and $f->Call("$disk\000", $sc, $sb, $nf)
584 0 0 if $f = 'Win32::API'->new('kernel32', 'GetDiskFreeSpace', ['P', 'P', 'P', 'P', 'P'], 'N') and $f->Call("$disk\000", $sc, $sb, $nf, $nt)
588 0 0 `%COMSPEC% /c dir $disk` =~ /([\d\.\xFF, ]+)[\D]*$/i ? :
591 0 1 `df -k` =~ /^$disk +([\d]+)/im ? :
594 1 0 if $sze eq ''
601 0 1 $_[0] =~ /^\-/i ? :
605 1 0 unless $opt =~ /-\$/i
606 1 0 unless ($opt =~ /-\$/i)
609 0 0 $Language =~ /ru/i ? :
0 1 unless dbmopen %dbm, "$dst/FileTrack", 438 and open TRACK, ">>$dst/FileTrack.log"
612 1 0 unless $sub
617 0 1 m(^(.*)[/\\]([^/\\]+)$) ? :
618 0 1 $Language =~ /ru/i ? :
0 1 if (@stat == 0 and $opt =~ /[^!i]*i/i || $^O eq 'MSWin32' && /[\?]/i) { }
1 0 elsif (@stat == 0) { }
0 0 elsif ($stat[2] & 16384 and $opt =~ /!.*d/i) { }
0 0 elsif (not &$sub(\@stat, @nme)) { }
0 0 elsif (not defined $_) { }
623 0 0 $stat[2] & 16384 || !($opt =~ /[^!]*t/i) ? :
624 0 0 $2 != $crc ? :
0 0 $1 != $stat[9] && !($opt =~ /!.*t/i) ? :
0 0 !($dbm{$_} =~ /^([\d]+)\t([\d]+)$/) ? :
0 0 !$dbm{$_} ? :
629 0 0 if ($tst)
630 0 0 if ($opt =~ /!.*c/i or $stat[2] & 16384) { }
0 0 elsif (eval { do { FileCopy('-d', $_, $dst) } }) { }
0 0 elsif ($opt =~ /[^!i]*i/i) { }
638 0 0 if ($stat[2] & 16384 and not $opt =~ /!.*r/i)
640 0 0 unless defined $_
643 0 0 unless ($lvl)
645 0 0 if -e $_
646 0 0 !($dbm{$_} =~ /^([\d]+)\t([\d]+)$/) ? :
650 0 0 $Language =~ /ru/i ? :
0 0 unless dbmclose %dbm and close TRACK
652 0 0 -d $dst ? :
0 0 if $chg
660 0 6 $_[0] =~ /^\-/i ? :
664 0 0 $Language =~ /ru/i ? :
0 6 unless open OUT, ">$file"
665 0 6 if ($opt =~ /b/i) { }
667 0 0 $Language =~ /ru/i ? :
0 0 unless print OUT @_
671 0 0 $Language =~ /ru/i ? :
0 22 unless not defined $row or print OUT $row, "\n"
674 0 0 $Language =~ /ru/i ? :
0 6 unless close OUT
680 0 0 if (ref $_[0]) { }
682 0 0 if ($k =~ /^-*(host|srv|s$)/i) { }
0 0 elsif ($k =~ /^-*(user|usr|u$)/i) { }
0 0 elsif ($k =~ /^-*(passwd|psw|p$)/i) { }
694 0 0 unless $ftp->login($usr, $passwd)
695 0 0 if ($cmd =~ /^ascii|bin|ebcdic|byte/)
697 0 0 unless eval "\$ftp->$cmd"
700 0 0 ref $cmd eq 'CODE' ? :
702 0 0 $cmd =~ /dir|ls/ ? :
0 0 if $cmd =~ /dir|ls/ ? $@ : !$ret[0]
703 0 0 if ($@)
704 0 0 $cmd =~ /dir|ls/ ? :
710 0 0 @_ > 1 ? :
711 0 0 unless $Interact
712 0 0 unless ($GUI)
713 0 0 $] >= 5.008 && !eval('${^ENCODING}') ? :
714 0 0 if $eu
723 0 0 $Language =~ /ru/i ? :
726 0 0 $r =~ /array/i ? :
734 0 0 if $eu
742 0 0 if (not $_[1] or $_[1] =~ m[^/d]i) { }
0 0 elsif (not $ENV{'OS'} or $ENV{'OS'} =~ /Windows_95/i) { }
0 0 elsif ($ENV{'OS'} and $ENV{'OS'} =~ /Windows_NT/i) { }
748 0 0 if $r
757 0 0 unless 'Win32::OLE'->new(@_)
764 0 0 unless 'Win32::OLE'->GetObject(@_)
769 0 0 ref $_[0] ? :
774 0 0 index($_[0], '-') == 0 ? :
0 0 ref $_[0] ? :
778 0 0 if &$s($_)
785 0 0 $Language =~ /ru/i ? :
7 0 if (@_) { }
787 0 7 unless $Interact
795 1 12 if ($_[0] =~ /^os$/i) { }
1 11 elsif ($_[0] =~ /^osname$/i) { }
0 11 elsif ($_[0] =~ /^win32$/i) { }
1 10 elsif ($_[0] =~ /^ver/i) { }
1 9 elsif ($_[0] =~ /^(patch)/i) { }
1 8 elsif ($_[0] =~ /^lang$/i) { }
1 7 elsif ($_[0] =~ /^prodid$/i) { }
1 6 elsif ($_[0] =~ /^name$/i) { }
1 5 elsif ($_[0] =~ /^hostdomain$/i) { }
2 3 elsif ($_[0] =~ /^host$/i) { }
1 2 elsif ($_[0] =~ /^domain|userdomain$/i) { }
1 1 elsif ($_[0] =~ /^user$/i) { }
1 0 elsif ($_[0] =~ /^windir$/i) { }
796 0 1 $^O eq 'MSWin32' ? :
0 1 $ENV{'OS'} ? :
803 0 1 $^O eq 'MSWin32' ? :
0 1 `%COMSPEC% /c ver` =~ /\n*([^\n]+)\n*/i ? :
1 0 unless $^O eq 'MSWin32' ? eval q[use Win32::TieRegistry;$$Registry{'LMachine\\Software\\Microsoft\\Windows\\CurrentVersion\\\\Version'}] || '' : '' or `%COMSPEC% /c ver` =~ /\n*([^\n]+)\n*/i ? $1 : '' or $ENV{'OS'}
810 0 0 $^O eq 'MSWin32' ? :
822 0 1 @_ > 1 ? :
825 0 1 $^O eq 'MSWin32' ? :
830 0 1 `%COMSPEC% /c dir c:\\` =~ /\341\242\256\241\256\244\255\256$/i ? :
833 0 1 $^O eq 'MSWin32' ? :
841 0 1 `net config` =~ /(Computer name|\212\256\254\257\354\356\342\245\340)\s*\\*([^ ]+)$/im ? :
0 1 $^O eq 'MSWin32' ? :
0 1 $ENV{'COMPUTERNAME'} ? :
851 2 0 index($r, '.') < 0 ? :
854 0 1 $^O eq 'MSWin32' ? :
1 0 unless $ENV{'USERDOMAIN'}
858 0 1 $^O eq 'MSWin32' ? :
1 0 unless getlogin or $^O eq 'MSWin32' ? eval { do { Win32::LoginName() } } || lc eval q[use Win32::TieRegistry; $$Registry{'LMachine\\\\System\\\\CurrentControlSet\\\\Control\\\\\\\\Current User'}] || (`net config` =~ /(User name|\217\256\253\354\247\256\242\240\342\245\253\354)\s*([^ ]+)$/im ? $2 : '') : '' or $ENV{'USERNAME'} or $ENV{'LOGNAME'}
865 0 1 if $ENV{'windir'}
866 1 0 if $^O ne 'MSWin32'
868 0 0 unless $$Registry{'LMachine\\Software\\Microsoft\\Windows NT\\CurrentVersion\\\\SystemRoot'}
876 0 18 if ($Print) { }
878 0 18 if $FileLog
885 0 0 $_[0] =~ /^\-/i ? :
886 0 0 $opt =~ m(\-([\|/\\])) ? :
889 0 0 if @_ == 0
890 0 0 @_ > 1 ? :
891 0 0 if @_ > 0 and not defined $_[0]
893 0 0 if ($type and not $type =~ /^REG_/i and $val =~ /^REG_/i)
896 0 0 if ($k < 0) { }
901 0 0 $h ? :
904 0 0 if $h
905 0 0 if ($type) { }
913 0 1 if (ref $_[$#_] eq 'CODE') { }
916 0 0 unless open OLDIN, '<&STDIN' and pipe STDIN, OUT
925 1 0 if $r
933 0 0 unless defined $s
934 0 0 unless defined $b
937 0 0 if $ENV{'windir'}
949 0 0 if (not defined $_[0]) { }
0 0 elsif ($_[0] =~ /^[\d]+$/) { }
952 0 0 if (not @_) { }
0 0 elsif (@_ < 2) { }
956 0 0 if ($ws ne '')
962 0 0 !defined($ks) || $ks ne '' ? :
0 0 if !defined($ks) || $ks ne '' ? @wnd : !@wnd
963 0 0 if $Echo and $Interact
966 0 0 if (@wnd and defined $ks and $ks eq '') { }
0 0 elsif (not @wnd and defined $ks and $ks eq '') { }
0 0 elsif (@wnd > 1) { }
0 0 elsif (not @wnd) { }
972 0 0 unless (defined $ks)
975 0 0 unless not defined $ks or $ks eq '' or Win32::GuiTest::SendKeys($ks)
982 0 0 !($_[0] =~ /:/) ? :
983 0 0 ref $_[0] ? :
984 0 0 if $from and $to
985 0 0 if (ref $r) { }
0 0 elsif (not $from and $r =~ /^(from|sender):(.*)/i) { }
0 0 elsif (not $to and $r =~ /^to:(.*)/i) { }
991 0 0 if $@
992 0 0 unless $smtp
993 0 0 unless $smtp->mail($from)
994 0 0 unless $smtp->to(@$to)
995 0 0 unless $smtp->data(join("\n", @_))
996 0 0 unless $smtp->dataend
1003 0 0 $Language =~ /ru/i ? :
0 1 @_ == 0 || $_[0] =~ /^\d+$/i ? :
1004 0 1 unless $msk
1005 0 0 @_ == 1 ? :
1 0 @_ == 0 ? :
1007 1 0 $tme[5] >= 100 ? :
1022 0 43 @_ > 1 && ref $_[0] eq 'CODE' ? :
1024 37 6 if (not $@) { }
1026 6 0 $TryStage eq '' ? :
1027 0 6 ref $_[$#_] eq 'CODE' ? :
1028 0 6 unless $@ eq $err
1029 0 0 $^S || $ErrorDie == 2 ? :
0 6 if ($ErrorDie) { }
6 0 elsif ($Echo and ref $_[$#_] ne 'CODE') { }
1037 0 0 unless $@ or @_
1039 0 0 @_ ? :
1040 0 0 $ert ? :
0 0 $^S || $ErrorDie == 2 ? :
0 0 if ($ErrorDie) { }
0 0 elsif ($Echo) { }
1041 0 0 $ert ? :
1047 0 0 if defined $_[0]
1048 0 0 if defined $_[1]
1049 0 0 $TryStage ne '' ? :
0 0 if $Echo
1056 0 0 if $^O ne 'MSWin32'
1057 0 0 if $opt =~ /^y$/i
1060 0 0 if ($opt =~ /n/i and lc $os ne 'windows_nt')
1062 0 0 if !$ENV{$$e[0]} || $opt =~ /y/i and $ENV{$$e[0]} = $$e[1]
1067 0 0 unless $opt =~ /h/i
1074 0 0 unless (-d $du)
1075 0 0 unless FileMkDir($du, 448)
1076 0 0 if ($os eq 'windows_nt')
1081 0 0 $k =~ / [^\\]*\\(.*)/ ? :
0 0 unless ($k =~ /\\($u|System|\321\310\321\322\305\314\300|Administrator|\300\344\354\350\355\350\361\362\360\340\362\356\360)/i)
1088 0 0 if not $opt =~ /y/i and lc($ENV{'HOME'} || '?') eq lc $pu
1090 0 0 $os ne 'windows_nt' && !Registry('LMachine\\Network\\Logon\\\\UserProfiles') ? :
1093 0 0 if $os eq 'windows_nt'
1095 0 0 if lc($ENV{$$e[0]} || '?') eq lc $$e[1]
1097 0 0 if ($os eq 'windows_nt') { }
1107 0 1 $pd ? :
1 0 if ($^O ne 'MSWin32') { }
1118 0 0 $u =~ /^\.*default$/i ? :
1121 0 0 !defined($pd) || $pd eq '' ? :
1122 0 0 $u =~ /^all$/i ? :
1129 0 0 $r =~ m[^(.*)[\\/][^\\/]*$]i ? :
0 0 !$e ? :
1143 0 0 !defined($_[0]) ? :
1145 0 0 if $u and exists $WScript{$n}
1146 0 0 if $u
1147 0 0 $n eq 'FSO' ? :
1148 0 0 $u ? :