diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2022-03-14 10:08:50 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2022-03-14 10:08:50 +0000 |
| commit | 49b9d8ffc05bf0c271287eb1390cabad28c6a47a (patch) | |
| tree | e2e1779b1d4795d6b2c3bf92a4e2e4154d82124b /Master/tlpkg/tlperl/lib/FindBin.pm | |
| parent | f03a75ebd3b935ecde4dde32687fbe86161c30ed (diff) | |
New tlperl 5.34
git-svn-id: svn://tug.org/texlive/trunk@62701 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/FindBin.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/FindBin.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/FindBin.pm b/Master/tlpkg/tlperl/lib/FindBin.pm index cf6ecf29040..a1b768a1079 100644 --- a/Master/tlpkg/tlperl/lib/FindBin.pm +++ b/Master/tlpkg/tlperl/lib/FindBin.pm @@ -77,19 +77,21 @@ under the same terms as Perl itself. =cut package FindBin; +use strict; +use warnings; + use Carp; -require 5.000; require Exporter; use Cwd qw(getcwd cwd abs_path); use File::Basename; use File::Spec; -@EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir); -%EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]); -@ISA = qw(Exporter); - -$VERSION = "1.51"; +our ($Bin, $Script, $RealBin, $RealScript, $Dir, $RealDir); +our @EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir); +our %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]); +our @ISA = qw(Exporter); +our $VERSION = "1.52"; # needed for VMS-specific filename translation if( $^O eq 'VMS' ) { |