| /openbsd/gnu/usr.bin/perl/ext/File-Find/lib/File/ |
| H A D | Find.pm | 14 my $Is_VMS = $^O eq 'VMS';
156 if ($Is_VMS) {
217 $top_item =~ s/\.dir\z//i if $Is_VMS;
233 $top_item =~ s/\.dir\z//i if $Is_VMS;
245 $top_item =~ s/\.dir\z//i if $Is_VMS;
319 if ($Is_VMS) {
411 if ($Is_VMS) {
446 $FN =~ s/\.dir\z//i if $Is_VMS;
471 if ($Is_VMS) {
630 if ($Is_VMS) {
[all …]
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/ |
| H A D | Utils.pm | 15 our $Is_VMS = $^O eq 'VMS';
22 $Is_VMS $Is_MacOS
131 return $perl if $Is_VMS;
199 return $Is_VMS ? 'Descrip.MMS' : 'Makefile';
213 return $Is_VMS ? "$makefile".'_old' : "$makefile.old";
228 return $Is_VMS ? $make : qq{"$make"};
|
| /openbsd/gnu/usr.bin/perl/cpan/AutoLoader/lib/ |
| H A D | AutoSplit.pm | 216 my $Is_VMS = ($^O eq 'VMS');
277 if ($Is_VMS) { # may need to convert VMS-style filespecs
281 if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs
307 if ($Is_VMS) {
359 $Is_VMS && $filename =~ m/$modpname.pm/i);
481 if ($Is_VMS or $Is83) {
495 $file = lc $file if $Is83 or $Is_VMS;
540 if ($Is_VMS) {
|
| /openbsd/gnu/usr.bin/perl/t/run/ |
| H A D | switchI.t | 10 my $Is_VMS = $^O eq 'VMS';
16 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
26 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/ |
| H A D | Command.pm | 13 my $Is_VMS = $^O eq 'VMS';
14 my $Is_VMS_mode = $Is_VMS;
15 my $Is_VMS_noefs = $Is_VMS;
18 if( $Is_VMS ) {
86 my $wild_regex = $Is_VMS ? '*%' : '*?';
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/lib/MakeMaker/Test/ |
| H A D | Utils.pm | 10 our $Is_VMS = $^O eq 'VMS';
16 $Is_VMS $Is_MacOS
110 return $perl if $Is_VMS;
183 return $Is_VMS ? 'Descrip.MMS' : 'Makefile';
197 return $Is_VMS ? "$makefile".'_old' : "$makefile.old";
|
| /openbsd/gnu/usr.bin/perl/lib/ |
| H A D | blib.t | 12 my $Is_VMS = $^O eq 'VMS';
15 if ($Is_VMS) {
16 require VMS::Filespec if $Is_VMS;
|
| /openbsd/gnu/usr.bin/perl/ |
| H A D | installperl | 14 our ($Is_VMS, $Is_W32, $Is_OS2, $Is_Cygwin, $Is_Darwin, $Is_AmigaOS,
19 if ($Is_VMS) { eval 'use VMS::Filespec;' }
30 my $scr_ext = ($Is_VMS ? '.Com' : $Is_W32 ? '.bat' : '');
57 if ( $Is_VMS ) {
316 if ($Is_VMS) { # We did core file selection during build
392 if ($opts{archname} && ! samepath($installbin, '.') && ! $Is_VMS) {
453 if ($Is_VMS or $^O eq 'transit') {
503 my $pod = ($Is_Cygwin || $Is_Darwin || $Is_VMS || $Is_W32) ? 'pods' : 'pod';
540 return if $opts{notify} or $Is_VMS;
565 if $Is_VMS and -e $to and !$opts{silent};
[all …]
|
| H A D | install_lib.pl | 7 use vars qw($Is_VMS $Is_W32 $Is_OS2 $Is_Cygwin $Is_Darwin $Is_AmigaOS
46 $Is_VMS = $^O eq 'VMS';
57 return scalar(@names) if $Is_VMS;
94 if $Is_VMS and -e $to and !$opts{silent};
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Manifest/lib/ExtUtils/ |
| H A D | Manifest.pm | 22 our $Is_VMS = $^O eq 'VMS';
27 if ($Is_VMS) {
28 require VMS::Filespec if $Is_VMS;
166 if ( $Is_VMS ) {
544 File::Path::mkpath([ $target ],! $Quiet,$Is_VMS ? undef : 0755);
558 File::Path::mkpath(["$target/$dir"],! $Quiet,$Is_VMS ? undef : 0755);
602 utime $access, $mod + ($Is_VMS ? 1 : 0), $dstFile;
610 return &cp if $Is_VMS or ($^O eq 'MSWin32' and Win32::IsWin95());
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
| H A D | INST_PREFIX.t | 22 my $Is_VMS = $^O eq 'VMS';
133 if $Is_VMS;
226 skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
259 skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
275 $Config{$k_no_install} = $v if $Is_VMS;
|
| H A D | basic.t | 35 my $Is_VMS = $^O eq 'VMS';
200 $file =~ s/\.$// if $Is_VMS;
218 skip 'VMS install targets do not preserve $(PREFIX)', 8 if $Is_VMS;
231 skip 'VMS install targets do not preserve $(DESTDIR)', 10 if $Is_VMS;
262 skip 'VMS install targets do not preserve $(PREFIX)', 9 if $Is_VMS;
285 $distdir =~ s/\./_/g if $Is_VMS;
|
| H A D | cd.t | 14 my $Is_VMS = $^O eq 'VMS';
61 skip("VMS' cd requires vmspath which is only on VMS", 1) unless $Is_VMS;
|
| H A D | split_command.t | 15 my $Is_VMS = $^O eq 'VMS';
55 if( $Is_VMS ) {
|
| H A D | INSTALL_BASE.t | 27 my $Is_VMS = $^O eq 'VMS';
52 $instdir = VMS::Filespec::unixpath($instdir) if $Is_VMS;
|
| H A D | prereq_print.t | 30 my $Is_VMS = $^O eq 'VMS';
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/lib/ExtUtils/ |
| H A D | Installed.pm | 13 my $Is_VMS = $^O eq 'VMS';
16 require VMS::Filespec if $Is_VMS;
25 if( $Is_VMS ) {
80 if( $Is_VMS ) {
109 $module = _module_name($p, $module) if $Is_VMS;
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/ |
| H A D | InstallWithMM.t | 39 my $Is_VMS = $^O eq 'VMS';
92 $file =~ s/\.$// if $Is_VMS;
|
| /openbsd/gnu/usr.bin/perl/t/op/ |
| H A D | exec.t | 36 my $Is_VMS = $^O eq 'VMS';
60 my $quote = $Is_VMS || $Is_Win32 ? '"' : '';
78 local $TODO = 'VMS sticks newlines on everything' if $Is_VMS;
|
| H A D | magic.t | 94 if ($Is_VMS) {
105 elsif ($Is_VMS) { is `write sys\$output f\$trnlnm("FOO")`, "hi there\n"; }
301 my $perl = $Is_VMS || $is_abs ? $^X : "$wd/perl";
327 elsif ($Is_VMS) {
546 local $TODO = $Is_VMS ? "'\$!=undef' does throw a warning" : '';
649 skip('Can\'t make assignment to \%ENV on this system', 3) if $Is_VMS;
827 if $ENV{PERL_VALGRIND} || $Is_VMS;
|
| H A D | stat.t | 45 my $Is_VMS = $^O eq 'VMS';
196 skip "-r, -w and -x have different meanings on VMS", 3 if $Is_VMS;
272 if $Is_VMS;
386 local our $TODO = 'STDIN not a tty when output is to pipe' if $Is_VMS;
508 $target =~ s/;\d+\z// if $Is_VMS; # symlinks don't like version numbers
|
| /openbsd/gnu/usr.bin/perl/utils/ |
| H A D | perlbug.PL | 99 $Is_MSWin32, $Is_Linux, $Is_VMS, $Is_OpenBSD,
199 $Is_VMS = $^O eq 'VMS';
268 || ($Is_VMS && "edit/tpu")
420 if ($Is_VMS && !$::Config{'d_socket'}) {
937 } elsif ($Is_VMS) {
|
| /openbsd/gnu/usr.bin/perl/cpan/File-Path/t/ |
| H A D | Path.t | 27 my $Is_VMS = $^O eq 'VMS';
220 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
234 $dir2 = VMS::Filespec::unixify($dir2) if $Is_VMS;
291 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
320 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
442 if $Is_VMS;
495 if ($input == 0 && $Is_VMS);
|
| /openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/ |
| H A D | MM.pm | 16 my $Is_VMS = $^O eq 'VMS';
218 my @mod_info = $Is_VMS ? split /\|/, <STDIN>
|
| /openbsd/gnu/usr.bin/perl/ext/POSIX/t/ |
| H A D | posix.t | 28 $Is_VMS = $^O eq 'VMS';
36 if ($Is_VMS) {
450 if $Is_W32 || $Is_VMS;
468 $Is_VMS ||
|