Changeset 8452

Timestamp:

03/27/08 20:02:09 (5 years ago)

Author:

yappo

Message:

lang/perl/Net-Partty: command nameを出す

Files:

• lang/perl/Net-Partty/trunk/example/pertty.pl (modified) (1 diff)

lang/perl/Net-Partty/trunk/example/pertty.pl

@@ -77 +77 @@
     close $slave;
     my $shell = $ENV{SHELL} || '/bin/sh';
-    exit exec $shell, '-i';
+    my($name) = $shell =~ m!([^/]+)$!;
+    $name ||= $shell;
+    exit exec { $shell } $name, '-i';
 }