Changeset 4931 for trunk/Nebulous/scripts/ptest.pl

Timestamp:

Aug 31, 2005, 10:55:39 AM (21 years ago)

Author:

jhoblitt

Message:

update

File:

• trunk/Nebulous/scripts/ptest.pl (modified) (2 diffs)

trunk/Nebulous/scripts/ptest.pl

@@ -1 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
-use warnings;
+use warnings FATAL => qw( all );
 
 use lib "./lib";
@@ -12 +12 @@
 );
 
-my $key = shift;
-
+my $key = shift || 'foobar';
 my $kids = shift || 1;