diff options
| author | Karl Williamson <khw@cpan.org> | 2022-05-04 12:15:36 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-05-04 14:57:35 -0600 |
| commit | 5a1627d6bf6bcc134edcd9e11ed154c3376bf585 (patch) | |
| tree | 33f9a9a8ac4aa043beb4bc4e32100958a8a1f803 /t | |
| parent | cac489450ef3938abec7e82b5f6750ad06c0f435 (diff) | |
| download | perl-5a1627d6bf6bcc134edcd9e11ed154c3376bf585.tar.gz | |
podcheck.t: Change $variable name
This makes it clearer
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/podcheck.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 356607cd74..08f0c7209d 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -361,10 +361,10 @@ our @perldelta_ignore_links = ( "XXX", "perl5YYYdelta", "perldiag/message" ); # which is not an error, it uses a checksum to save work. my $digest_type = "SHA-1"; -my $original_dir = File::Spec->rel2abs(File::Spec->curdir); -my $data_dir = File::Spec->catdir($original_dir, 'porting'); +my $original_t_dir = File::Spec->rel2abs(File::Spec->curdir); +my $data_dir = File::Spec->catdir($original_t_dir, 'porting'); my $known_issues = File::Spec->catfile($data_dir, 'known_pod_issues.dat'); -my $MANIFEST = File::Spec->catfile(File::Spec->updir($original_dir), 'MANIFEST'); +my $MANIFEST = File::Spec->catfile(File::Spec->updir($original_t_dir), 'MANIFEST'); my $copy_fh; my $MAX_LINE_LENGTH = 78; # 78 columns @@ -2251,7 +2251,7 @@ EOF } if ($regen) { - chdir $original_dir || die "Can't change directories to $original_dir"; + chdir $original_t_dir || die "Can't change directories to $original_t_dir"; close_and_rename($copy_fh); } |