view release on metacpan or  search on metacpan

lib/Fry/Lib/CDBI/Basic.pm  view on Meta::CPAN

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
sub modify_file {       
        my ($cls,$tempfile) = @_;
        my $inp;
 
        system($cls->Var('editor') . " $tempfile");# or die "can't execute command as $<: $@";
        #?: why does this system always return a fail code
        #$cls->view("cdbi_update (y/n)? "); chomp($inp = <STDIN>);
        $inp = $cls->Rline->stdin("cdbi_update (y/n)?");
        return ($inp eq "y");
}
sub update_from_file {
        my ($cls,$tempfile,@records) = @_;
 
        my @lines = $cls->file2array($tempfile);
 
        #my $firstline = shift(@lines);
        #read column order from file
        #my @fields = split(/$updatedelim/,$firstline);
        #or not
        my @fields = @{$cls->Var('action_columns')};