Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit15bb93e

Browse files
committed
Fix portability problem in Catalog.pm.
Commit7666e73 introduced a dependency on filehandles' input_line_numbermethod, but apparently that's a Perl neologism. Use $. instead, whichworks at least back to Perl 5.10, and hopefully back to 5.8.Jeff JanesDiscussion:https://postgr.es/m/CAMkU=1wuQW=xVfu-14A4VCvxO0ohkD3m9vk6HOj_dprQoKNAQw@mail.gmail.com
1 parent395bfaa commit15bb93e

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

‎src/backend/catalog/Catalog.pm

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -66,6 +66,9 @@ sub Catalogs
6666
redo;
6767
}
6868

69+
# Remember input line number for later.
70+
my$input_line_number =$.;
71+
6972
# Strip useless whitespace and trailing semicolons.
7073
chomp;
7174
s/^\s+//;
@@ -80,7 +83,7 @@ sub Catalogs
8083
elsif (/^DATA\(insert(\s+OID\s+=\s+(\d+))?\s+\(\s*(.*)\s*\)\s*\)$/)
8184
{
8285
check_natts($filename,$catalog{natts},$3,
83-
$input_file,INPUT_FILE->input_line_number);
86+
$input_file,$input_line_number);
8487

8588
push @{$catalog{data} }, {oid=>$2,bki_values=>$3 };
8689
}
@@ -242,4 +245,5 @@ sub check_natts
242245
$file,$line,$natts,scalar@atts
243246
unless$natts ==@atts;
244247
}
248+
245249
1;

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp