Changeset 18742

Timestamp:

Jul 25, 2008, 4:04:42 PM (18 years ago)

Author:

bills

Message:

fix some obscure syntax that confused perl -d

File:

• trunk/pstamp/scripts/pstamp_job_run.pl (modified) (1 diff)

trunk/pstamp/scripts/pstamp_job_run.pl

@@ -92 +92 @@
 
     my $jobs = parse_md_list($metadata);
+    my $num = @$jobs;
+    die "unexpected number of jobs $num found for job: $job_id" if $num > 1;
 
-    $psjob = ${@$jobs}[0];
+    $psjob = $jobs->[0];
 }