Silence "used only once" warning in porting test

[jkeenan]

As suggested by Dave M. in
#23278 (comment).

---

• This set of changes does not require a perldelta entry.

@iabyn

[khwilliamson]

This works. An alternative is to change test.pl to be

$::IS_ASCII  = $::IS_ASCII  = ord 'A' ==  65;
$::IS_EBCDIC = $::IS_EBCDIC = ord 'A' == 193;

And then the individual .t files wouldn't have to do anything special.

But I don't know which is better. Maybe they should have to declare their use of this as the better practice.

[iabyn]

On Wed, May 14, 2025 at 08:32:40AM -0700, Karl Williamson wrote: @khwilliamson commented on this pull request. This works. An alternative is to change `test.pl` to be ``` $::IS_ASCII = $::IS_ASCII = ord 'A' == 65; $::IS_EBCDIC = $::IS_EBCDIC = ord 'A' == 193; And then the individual `.t` files wouldn't have to do anything special.

I don't think that will silence the warning: $ cat /tmp/test.pl $::ABC = $::ABC = 1; $ perl -e'use warnings; use strict; require "/tmp/test.pl"; print "ok\n" if $::ABC' Name "main::ABC" used only once: possible typo at -e line 1. ok $

But I don't know which is better. Maybe they should have to declare their use of this as the better practice.

Looking at other test files, either they don't have warnings enabled, or they happen to use the var more than once. I think declaring it as 'our' in the test script is probably the best approach.

…

-- The warp engines start playing up a bit, but seem to sort themselves out after a while without any intervention from boy genius Wesley Crusher. -- Things That Never Happen in "Star Trek" #17