diff options
| author | Nicolas R <atoomic@cpan.org> | 2017-09-12 13:20:25 -0600 |
|---|---|---|
| committer | Todd Rinaldo <toddr@cpan.org> | 2017-11-11 01:07:18 -0600 |
| commit | fd55ca4fb1e49bf9880aad1e3d9f27ace56ec139 (patch) | |
| tree | ee4fe8e8ccd3cdef389b201a64b9863d2fcf3363 /ext/VMS-Stdio | |
| parent | cc01160e81924fc81416f1a69e0c7c52f7c1bcf7 (diff) | |
| download | perl-fd55ca4fb1e49bf9880aad1e3d9f27ace56ec139.tar.gz | |
Replace multiple 'use vars' by 'our' in ext
Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.
This commit is about replacing the usage of 'vars' pragma
by 'our' in 'ext' directory.
Diffstat (limited to 'ext/VMS-Stdio')
| -rw-r--r-- | ext/VMS-Stdio/Stdio.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/ext/VMS-Stdio/Stdio.pm b/ext/VMS-Stdio/Stdio.pm index e692e05b08..02ba8668ed 100644 --- a/ext/VMS-Stdio/Stdio.pm +++ b/ext/VMS-Stdio/Stdio.pm @@ -8,18 +8,17 @@ package VMS::Stdio; require 5.002; -use vars qw( $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS @ISA ); use Carp '&croak'; use DynaLoader (); use Exporter (); - -$VERSION = '2.43'; -@ISA = qw( Exporter DynaLoader IO::File ); -@EXPORT = qw( &O_APPEND &O_CREAT &O_EXCL &O_NDELAY &O_NOWAIT + +our $VERSION = '2.44'; +our @ISA = qw( Exporter DynaLoader IO::File ); +our @EXPORT = qw( &O_APPEND &O_CREAT &O_EXCL &O_NDELAY &O_NOWAIT &O_RDONLY &O_RDWR &O_TRUNC &O_WRONLY ); -@EXPORT_OK = qw( &binmode &flush &getname &remove &rewind &sync &setdef &tmpnam +our @EXPORT_OK = qw( &binmode &flush &getname &remove &rewind &sync &setdef &tmpnam &vmsopen &vmssysopen &waitfh &writeof ); -%EXPORT_TAGS = ( CONSTANTS => [ qw( &O_APPEND &O_CREAT &O_EXCL &O_NDELAY +our %EXPORT_TAGS = ( CONSTANTS => [ qw( &O_APPEND &O_CREAT &O_EXCL &O_NDELAY &O_NOWAIT &O_RDONLY &O_RDWR &O_TRUNC &O_WRONLY ) ], FUNCTIONS => [ qw( &binmode &flush &getname &remove &rewind |