$NetBSD: patch-ab,v 1.1.1.1 2001/04/22 07:53:00 kei Exp $

--- gen_act.orig	Sat Mar 31 14:11:46 2001
+++ gen_act	Sat Mar 31 14:12:02 2001
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/pkg/bin/perl 
 
 use strict;
 use vars qw(@LINE $scene_cond);