diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/Win32/File.pm')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/Win32/File.pm | 118 |
1 files changed, 0 insertions, 118 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/Win32/File.pm b/Master/tlpkg/tlperl.old/lib/Win32/File.pm deleted file mode 100644 index d67a25448c8..00000000000 --- a/Master/tlpkg/tlperl.old/lib/Win32/File.pm +++ /dev/null @@ -1,118 +0,0 @@ -package Win32::File; - -# -# File.pm -# Written by Douglas_Lankshear@ActiveWare.com -# -# subsequent hacks: -# Gurusamy Sarathy -# - -$VERSION = '0.05'; - -require Exporter; -require DynaLoader; - -@ISA= qw( Exporter DynaLoader ); -@EXPORT = qw( - ARCHIVE - COMPRESSED - DIRECTORY - HIDDEN - NORMAL - OFFLINE - READONLY - SYSTEM - TEMPORARY - ); -@EXPORT_OK = qw(GetAttributes SetAttributes); - -=head1 NAME - -Win32::File - manage file attributes in perl - -=head1 SYNOPSIS - - use Win32::File; - -=head1 DESCRIPTION - -This module offers the retrieval and setting of file attributes. - -=head1 Functions - -=head2 NOTE - -All of the functions return FALSE (0) if they fail, unless otherwise noted. -The function names are exported into the caller's namespace by request. - -=over 10 - -=item GetAttributes(filename, returnedAttributes) - -Gets the attributes of a file or directory. returnedAttributes will be set -to the OR-ed combination of the filename attributes. - -=item SetAttributes(filename, newAttributes) - -Sets the attributes of a file or directory. newAttributes must be an OR-ed -combination of the attributes. - -=back - -=head1 Constants - -The following constants are exported by default. - -=over 10 - -=item ARCHIVE - -=item COMPRESSED - -=item DIRECTORY - -=item HIDDEN - -=item NORMAL - -=item OFFLINE - -=item READONLY - -=item SYSTEM - -=item TEMPORARY - -=back - -=cut - -sub AUTOLOAD -{ - my($constname); - ($constname = $AUTOLOAD) =~ s/.*:://; - #reset $! to zero to reset any current errors. - local $! = 0; - my $val = constant($constname); - if($! != 0) - { - if($! =~ /Invalid/) - { - $AutoLoader::AUTOLOAD = $AUTOLOAD; - goto &AutoLoader::AUTOLOAD; - } - else - { - ($pack,$file,$line) = caller; - die "Your vendor has not defined Win32::File macro $constname, used in $file at line $line."; - } - } - eval "sub $AUTOLOAD { $val }"; - goto &$AUTOLOAD; -} - -bootstrap Win32::File; - -1; -__END__ |