diff options
| author | Paul Marquess <pmarquess@bfsec.bt.co.uk> | 1996-02-06 14:09:49 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-06 14:09:49 +0000 |
| commit | 73c78b0a2be8a786003c2c964410ac778b021b43 (patch) | |
| tree | 6a473194ed692f1d41bcc0773600a004bd197270 /ext/Fcntl | |
| parent | 785da04d1d58a83562b02a5c8764cea0dc6ceede (diff) | |
| download | perl-73c78b0a2be8a786003c2c964410ac778b021b43.tar.gz | |
VERSION Patch
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/Fcntl.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index aef7ad3d00..32a3194326 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -23,11 +23,13 @@ pack up your own arguments to pass as args for locking functions, etc. =cut +use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD); + require Exporter; use AutoLoader; require DynaLoader; @ISA = qw(Exporter DynaLoader); -$VERSION = $VERSION = "1.00"; +$VERSION = "1.00"; # Items to export into callers namespace by default # (move infrequently used names to @EXPORT_OK below) @EXPORT = @@ -44,16 +46,16 @@ $VERSION = $VERSION = "1.00"; ); sub AUTOLOAD { - local($constname); + my($constname); ($constname = $AUTOLOAD) =~ s/.*:://; - $val = constant($constname, @_ ? $_[0] : 0); + my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } else { - ($pack,$file,$line) = caller; + my ($pack,$file,$line) = caller; die "Your vendor has not defined Fcntl macro $constname, used at $file line $line. "; } @@ -62,7 +64,7 @@ sub AUTOLOAD { goto &$AUTOLOAD; } -bootstrap Fcntl; +bootstrap Fcntl $VERSION; # Preloaded methods go here. Autoload methods go after __END__, and are # processed by the autosplit program. |