@@ -1,3 +1,7 @@
+2025-01-10 - 6.3
+ Fix make_path() in t/29unreadable.t. (thanks to Michal Josef Špaček @michal-josef-spacek)
+ Fix t/29unreadable.t tests failing as root. (thanks to Michal Josef Špaček @michal-josef-spacek)
+
2024-10-23 - 6.2
Simon, did you forget to remove a dependency you used only for testing? Yes, yes you did.
|
@@ -4,7 +4,7 @@
"Simon Wistow <simon@thegestalt.org>"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
@@ -90,6 +90,6 @@
}
},
- "version" : "6.2",
+ "version" : "6.3",
"x_serialization_backend" : "JSON::PP version 4.06"
}
|
@@ -19,7 +19,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
@@ -49,5 +49,5 @@ requires:
resources:
-version: '6.2'
+version: '6.3'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
|
@@ -10,7 +10,7 @@ use if $] > 5.017, 'deprecate';
# Peter Gibbons: I wouldn't say I've been missing it, Bob!
-our $VERSION = '6.2';
+our $VERSION = '6.3';
our $FORCE_SEARCH_ALL_PATHS = 0;
sub import {
|
@@ -1,9 +1,19 @@
#!perl -w
use strict;
+
+use Test::More;
+
+BEGIN {
+ if ($> == 0) {
+ plan skip_all => "Running as root";
+ } else {
+ plan tests => 6;
+ }
+}
+
use FindBin;
#use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
-use Test::More tests => 6;
use File::Temp qw/tempdir/;
use File::Path qw(make_path);
@@ -12,10 +22,10 @@ use File::Path qw(make_path);
# So we're going to create it on the fly
# First create a tmp directory and then a directory underneath
-my $dir = tempdir();
+my $dir = tempdir(CLEANUP => 1);
my $path = "${dir}/lib/Unreadable";
my $file = "${path}/Foo.pm";
-make_path($path, CLEANUP => 1);
+make_path($path);
# ... now create a file
open(my $fh, ">", $file) || die "Couldn't create temporary file $file: $!";
print $fh "package Unreadable::Foo;\n1;\n";
|