umltools/StructureAlterer/Handlers.pm

package StructureAlterer::Handlers;

use strict;
use warnings;

use UML::Utils;

#-----------------------------------
# generic_nuller

sub generic_nuller {
  my $filename = shift;
  my $cmd;
  if ( -f $filename ) {
    $cmd="> $filename";
    #`$cmd`;
    print "ccc: ", $cmd, "\n";
  }
  if ( -d $filename ) {
    my $dirlist = UML::Utils::GetDirList($filename);
    my @dir = split("\n", $dirlist);
    foreach (@dir) {
      $cmd = '';
      if (-f) { $cmd = $_; }
      print $cmd, "\n";
    }
  }
}

1;
1	joko	1.1	package StructureAlterer::Handlers;
2
3			use strict;
4			use warnings;
5
6			use UML::Utils;
7
8			#-----------------------------------
9			# generic_nuller
10
11			sub generic_nuller {
12			my $filename = shift;
13			my $cmd;
14			if ( -f $filename ) {
15			$cmd="> $filename";
16			#`$cmd`;
17			print "ccc: ", $cmd, "\n";
18			}
19			if ( -d $filename ) {
20			my $dirlist = UML::Utils::GetDirList($filename);
21			my @dir = split("\n", $dirlist);
22			foreach (@dir) {
23			$cmd = '';
24			if (-f) { $cmd = $_; }
25			print $cmd, "\n";
26			}
27			}
28			}
29
30			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26