I set such a script, and need within it to do a:if (-r "$ENV{HOME}/.clearcase_profile.pl" && ! -e "$libdir/NO_OVERRIDES") { require "$ENV{HOME}/.clearcase_profile.pl"; }
I run the same setup on Solaris perl 5.8.8, and on Cygwin perl 5.10.0.require ClearCase::Argv;
On Solaris, no problem. On Cygwin, everything is fine, apart for one spurious warning for every run of my 'wrapper' (aliased to ct):
This second Argv module is used exactly in the same way on both platforms. The line mentioned doesn't look particularly suspicious to me:$ ct des -fmt "\n" . Name "ClearCase::Argv" used only once: possible typo at \ /usr/lib/perl5/site_perl/5.10/Argv.pm line 308.
Any clue to help me to debug and understand this?$ cat -n /usr/lib/perl5/site_perl/5.10/Argv.pm | sed -n 304,311p 304 $self = {}; 305 if ($proto ne __PACKAGE__) { 306 # Inherit class attributes from subclass class attributes. 307 no strict 'refs'; 308 for (keys %$proto) { 309 $self->{$_} = $proto->{$_}; 310 } 311 }
P.S. The modules are available from CPAN, but work only around a proprietary tool: IBM/ClearCase.
In reply to Spurious warning from require'd package by cramdorgi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |