RetroSearch Browse

Home - News ( United States | United Kingdom | Italy | Germany ) - Football scores

Showing content from https://github.com/Perl/perl5/commit/b277e767f3a3d9af20f138a95c26625cf2dfb53a below:

Implement symlink(), lstat() and readlink() on Win32 · Perl/perl5@b277e76 · GitHub

File tree Expand file treeCollapse file tree 45 files changed

+1807

-706

lines changed

Filter options

Expand file treeCollapse file tree 45 files changed

+1807

-706

lines changed Original file line number Diff line number Diff line change


 @@ -6164,6 +6164,8 @@ t/win32/fs.t Test Win32 link for compatibility

6164 6164


 t/win32/popen.t Test for stdout races in backticks, etc

6165 6165


 t/win32/runenv.t Test if Win* perl honors its env variables

6166 6166


 t/win32/signal.t Test Win32 signal emulation

6167

+
 t/win32/stat.t Test Win32 stat emulation

6168

+
 t/win32/symlink.t Test Win32 symlink

6167 6169


 t/win32/system.t See if system works in Win*

6168 6170


 t/win32/system_tests Test runner for system.t

6169 6171


 taint.c Tainting code

Original file line number Diff line number Diff line change


 @@ -1081,6 +1081,11 @@ package Maintainers;

1081 1081


  t/lib/if.pm

1082 1082

),

1083 1083

],

1084

+
 'CUSTOMIZED' => [

1085

+
 # https://github.com/Perl-Toolchain-Gang/Test-Harness/pull/103

1086

+
 # applied but not released

1087

+
 't/source.t'

1088

+
 ],

1084 1089

},

1085 1090 1086 1091


 'Test::Simple' => {

Original file line number Diff line number Diff line change


 @@ -242,11 +242,12 @@ SKIP: {

242 242


  my $symlink = File::Spec->catfile( $dir, 'source_link.T' );

243 243


  my $source = TAP::Parser::Source->new;

244 244 245

-
  eval { symlink( File::Spec->rel2abs($test), $symlink ) };

245

+
  my $did_symlink = eval { symlink( File::Spec->rel2abs($test), $symlink ) };

246 246


  if ( my $e = $@ ) {

247 247


  diag($@);

248 248


  die "aborting test";

249 249

250

+
  skip "symlink not successful: $!", 9 unless $did_symlink;

250 251 251 252


  $source->raw( \$symlink );

252 253


  my $meta = $source->assemble_meta;

Original file line number Diff line number Diff line change


 @@ -3,7 +3,7 @@ use strict;

3 3


 use Exporter;

4 4 5 5 6

-
 our $VERSION = '3.79';

6

+
 our $VERSION = '3.80';

7 7


 my $xs_version = $VERSION;

8 8


 $VERSION =~ tr/_//d;

9 9 Original file line number Diff line number Diff line change


 @@ -84,6 +84,9 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN])

84 84


 unsigned symlinks;

85 85


 int serrno;

86 86


 char remaining[MAXPATHLEN], next_token[MAXPATHLEN];

87

+
 #ifdef PERL_IMPLICIT_SYS

88

+
 dTHX;

89

+
 #endif

87 90 88 91


 serrno = errno;

89 92


 symlinks = 0;


 @@ -175,8 +178,8 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN])

175 178

176 179


 #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)

177 180

178

-
 struct stat sb;

179

-
 if (lstat(resolved, &sb) != 0) {

181

+
 Stat_t sb;

182

+
 if (PerlLIO_lstat(resolved, &sb) != 0) {

180 183


 if (errno == ENOENT && p == NULL) {

181 184


 errno = serrno;

182 185


 return (resolved);


 @@ -191,7 +194,7 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN])

191 194


 errno = ELOOP;

192 195


 return (NULL);

193 196

194

-
 slen = readlink(resolved, symlink, sizeof(symlink) - 1);

197

+
 slen = PerlLIO_readlink(resolved, symlink, sizeof(symlink) - 1);

195 198


 if (slen < 0)

196 199


 return (NULL);

197 200


 symlink[slen] = '\0';

Original file line number Diff line number Diff line change


 @@ -2,7 +2,7 @@ package File::Spec;

2 2 3 3


 use strict;

4 4 5

-
 our $VERSION = '3.79';

5

+
 our $VERSION = '3.80';

6 6


 $VERSION =~ tr/_//d;

7 7 8 8


 my %module = (

Original file line number Diff line number Diff line change


 @@ -3,7 +3,7 @@ package File::Spec::AmigaOS;

3 3


 use strict;

4 4


 require File::Spec::Unix;

5 5 6

-
 our $VERSION = '3.79';

6

+
 our $VERSION = '3.80';

7 7


 $VERSION =~ tr/_//d;

8 8 9 9


 our @ISA = qw(File::Spec::Unix);

Original file line number Diff line number Diff line change


 @@ -3,7 +3,7 @@ package File::Spec::Cygwin;

3 3


 use strict;

4 4


 require File::Spec::Unix;

5 5 6

-
 our $VERSION = '3.79';

6

+
 our $VERSION = '3.80';

7 7


 $VERSION =~ tr/_//d;

8 8 9 9


 our @ISA = qw(File::Spec::Unix);

Original file line number Diff line number Diff line change


 @@ -2,7 +2,7 @@ package File::Spec::Epoc;

2 2 3 3


 use strict;

4 4 5

-
 our $VERSION = '3.79';

5

+
 our $VERSION = '3.80';

6 6


 $VERSION =~ tr/_//d;

7 7 8 8


 require File::Spec::Unix;

Original file line number Diff line number Diff line change


 @@ -3,7 +3,7 @@ package File::Spec::Functions;

3 3


 use File::Spec;

4 4


 use strict;

5 5 6

-
 our $VERSION = '3.79';

6

+
 our $VERSION = '3.80';

7 7


 $VERSION =~ tr/_//d;

8 8 9 9


 require Exporter;

You can’t perform that action at this time.

RetroSearch is an open source project built by @garambo | Open a GitHub Issue

Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo

HTML: 3.2 | Encoding: UTF-8 | Version: 0.7.4