diff options
| author | fukachan <fukachan> | 2001-04-15 13:30:02 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-15 13:30:02 +0000 |
| commit | 762613c889b0d92d033a542f19de573daa4c994d (patch) | |
| tree | 7c8a96408793db7bd2c564ee21c30a7e828908fb /fml/lib/FML/Process/Switch.pm | |
| parent | 4aaf722cde8482855d3524ccbcf05885a4d393a7 (diff) | |
| download | fml8-762613c889b0d92d033a542f19de573daa4c994d.tar.gz fml8-762613c889b0d92d033a542f19de573daa4c994d.tar.bz2 fml8-762613c889b0d92d033a542f19de573daa4c994d.zip | |
warn relations among uid,euid,gid,egid
Diffstat (limited to 'fml/lib/FML/Process/Switch.pm')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 8e2f4a0c..e189be09 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.pm @@ -5,7 +5,7 @@ # redistribute it and/or modify it under the same terms as Perl itself. # # $Id$ -# $FML: Switch.pm,v 1.16 2001/04/03 09:45:43 fukachan Exp $ +# $FML: Switch.pm,v 1.17 2001/04/05 08:30:27 fukachan Exp $ # package FML::Process::Switch; @@ -88,6 +88,10 @@ sub main::Bootstrap2 use File::Basename; my $myname = basename($0); # inspect my name from $0 + # 0.1 + print STDERR "\nsetuid is not set $< != $>\n\n" if $< != $>; + print STDERR "\nsetgid is not set $( != $)\n\n" if $( ne $); + # 1.1 parse command line options (preliminary) use Getopt::Long; GetOptions(\%options, _module_specific_options($myname)); |