Re^3: Win32::File::SetAttributes not numeric?

I am currently using the pragmas use strict; use warnings; use diagnostics;

I'd much prefer to keep the use Win32::File;at the top of the package, but apparently my module doesn't like that.

The subroutine contains the following:

    
my $setROattr = READONLY;
my $unsetROattr = ~READONLY;

# set file attributes to allow editing
Win32::File::SetAttributes($file, $unsetROattr);
[download]

.. and the error with use Win32::File; at the top of the package is still...

Argument "READONLY" isn't numeric in subroutine entry
[download]

Thanks for the help!

Comment on Re^3: Win32::File::SetAttributes not numeric? Select or Download Code

Replies are listed 'Best First'.
Re^4: Win32::File::SetAttributes not numeric? by ikegami (Patriarch) on Jun 05, 2009 at 19:57 UTC
I am currently using the pragmas use strict; use warnings; use diagnostics; You only think you are. Just like `use Win32::File;` isn't working, neither is `use strict;`. `$ perl -e'use strict; my $attr; $attr \|= READONLY' Bareword "READONLY" not allowed while "strict subs" in use at -e line +1. Execution of -e aborted due to compilation errors.` [download] Without `use strict;`, `READONLY` would be considered the same as `"READONLY"`, which is the symptom you described.	[reply] [d/l] [select]
Re^5: Win32::File::SetAttributes not numeric? by mcarthey (Novice) on Jun 05, 2009 at 20:02 UTC
Sorry I should have been more specific. You are right that I encountered that issue, but I am using `use strict 'vars';` to avoid this. Thanks!	[reply] [d/l]
Re^6: Win32::File::SetAttributes not numeric? by ikegami (Patriarch) on Jun 05, 2009 at 20:10 UTC
Turning off strict is akin to turning off error checking. It doesn't make the problem go away. Don't do that.	[reply]
Re^4: Win32::File::SetAttributes not numeric? by afoken (Chancellor) on Jun 06, 2009 at 06:38 UTC
You still don't show us your code. Post the first 10 or 20 lines of your module's source code. If you can't, for some legal reasons, make sure they look like this: `package Your::Package; use strict; use warnings; use Win32::File;` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l]
Re^5: Win32::File::SetAttributes not numeric? by mcarthey (Novice) on Jun 08, 2009 at 14:25 UTC
Thanks for the help. I didn't have the package statement in the right place. Matching your output helped and everything appears to be working again. It was also enlightening to realize that Win32::File was not working, so thanks to the person who let me know that. Getting away from the problem on my drive home on Friday helped out, as well. Thanks again all!	[reply]