1 |
joko |
1.1 |
## ------------------------------------------------------------------------- |
2 |
|
|
## $Id: shortcuts.pm,v 1.11 2003/06/23 17:41:50 jonen Exp $ |
3 |
|
|
## ------------------------------------------------------------------------- |
4 |
|
|
## $Log: shortcuts.pm,v $ |
5 |
|
|
## ------------------------------------------------------------------------- |
6 |
|
|
|
7 |
|
|
|
8 |
|
|
package IPC::Session::NoShell; |
9 |
|
|
|
10 |
|
|
use base qw( IPC::Session ); |
11 |
|
|
|
12 |
|
|
# This could be enhanced (e.g.) returning $IPC::Session::shell or s.th.l.th.!? |
13 |
|
|
sub getshell { |
14 |
|
|
return ''; |
15 |
|
|
} |
16 |
|
|
|
17 |
|
|
|
18 |
|
|
1; |
19 |
|
|
__END__ |